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IDENTIFICATION 


PRODUCT CODE: 
PRODUCT NAME: 
DATE CREATED: 
MAINTAINER: 
AUTHOR; 


AC-E662A-MC 

CZRXEAO RXO? FMTR PROG 
?5 JUL 78 

DIAGNOSTIC ENGINEERING 
L.S. PRUCHA 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COflMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILI TY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF D'SITAL’S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM. EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

digital EQUIPMENT CORPORATICW ASSUMES NO RESPONSIBILI TY FOR THE USE OR 
RELIBILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
DIGITAL. 

COPYRIGHT (C) 1978, BY DIGITAL EQUIPMENT CORPORATION 
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5666 

5667 
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5670 

5671 
^’^72 
5675 

5674 

5675 

5676 

5677 

5678 

5679 

5680 


1.0 A8S TRACT 


THIS PROGRAM IS INTENDED TO FORMAT A FLOPPY DISK TO EITHER SINGLE 
OR DOUBLE DENSITY ON A DRIVE CAPABLE OF SETTING DENSITY ON A FLOPPY 
DISK. IT WILL RUN UNDER APT. BUT WILL RUN IN A USER MODE WITH 
SEVERAL SWITCHABLE OPTIONS 10 ENABLE A TESTING AND DEBUGGING. 


2.0 REQUIREMENTS 


2.1 HARDWARE 


1. ANY PDP-11 PROCESSOR 

2. RX02.XX SteSYSTEM 


2.2 STORAGE 


THIS PROGRAM REQUIRES AT LEAST 4K WORDS OF CORE. IF LOADING 
VIA XXDP MORE STORAGE WILL BE NEEDED FOR THE XXDP MONITOR. 


3.0 LOADING PROCEDURE 


USE OF STANDARD BINARY LOADING PROCEDURE OR DOWN LINE LOAD VIA 
APT. 


4.0 STARTING PROCEDURE 


1. USER MODE - START AT LOCATION 200(8) TO INITIALIZE 
REGISTERS. 

- START AT LOCATION 210(8) TO RESTART TEST. 

- START AT LOCATION 220(8) TO ENTER DEBUG MODE. 

2. APT MODE - ALWAYS START AT LOCATION 200(8). 
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5.0 SOFTWARE SWITCH SETTINGS 


1. USER MODE - THE SWITCH REGISTER IS SETUP FOR THE USER BY 
THE PROGRAM VIA USER DIALOG. 


SW15: 

SW14: 

swrS: 

SWI?: 

SWC9: 


1 = HALT ON ERROR 
0 = CONTINUE 


1 = EXTENDED ERROR REPORTS 

0 = NORMAL ERROR REPORTS 

1 = INHIBIT ERRm REPORTS 

0 = PRINT ERRORS 

1 = BUS INITIALIZE ON ERROR IF LOOPING 
0 = NO BUS INITIALIZE ON ERROR 

LOOP ON ERROR 

CONTINUE 


^ — 

I 

0 - 


— > 


THESE SWIUH SETTINGS! 
ARE AVAIL ABLE, BUT ARE! 
INTENDED FOR HARDWARE! 
DEBUG ONLY. ! 


SOFTWARE SWITCH REGISTER 

(lit 


!15 !14 1 13! 12! 11! 

TO! 09! 08! 07106 ! 05 104 

103 10? !01 

f 

I o 
1 o 
1 

!HOE!EXT'IER!BUS! ! 

1L0E1D8L1CRC! ! 

! ! !SY! 

ISYO! 

SWR ! !ER ! 11 NT! ! 

! ! DEN! ALL! 1 ! 

! !SEl 

iSEL : 


1% ^ 

A. 

■A 


: THESE BITS ARE SET BY PROGRAM INTERFACE ! 
! TO USER “ THEY ARE SHOWN HERE TO AID IN ! 


I 


PROGRAM MAINTENANCE. 


I 


?. APT MODE - the APT SWITCH REGISTER 'SSWREG” MUST BE SET UP 

AS FOLLOWS: SY0SEL = 1 (81 TO) AND D6LDEN=1 

FOR SETTING TO DOUBLE DENSITY. IF CRC CHECK ON 
ALL TRACKS IS DESIRED THEN SET BIT CRCALL^l (6IT7> 
SEE SWITCH REGISTER ABOVE. 


CZRXEAO RX02 
CZRXBA.P11 

S7’;i 

S7.V 
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S77A 

5735 
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5737 

5738 
57 3Q 
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57A1 
57A? 

57A3 

57AA 

57A5 

57A6 

57A7 

57A8 

57A9 

5750 

5751 
575? 

5753 

575A 

575^ 

5756 

5757 

5758 

5759 

5760 

5761 
576? 

5763 

576A 

5765 

5766 

5767 

5768 
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6.0 


6.1 


7,0 


OPERATION 


THE PROGRAM OPERATION IN 'USER MODE" IS SIMPLE. AFTER INITIAL 
START THE PROGRAM WILL ASK THE OPERATOR IF HELP IS WANTED AND 
WILL type OUT A SHORT DESCRIPTION OF THE PROGRAM IF ANSWERED 
YES. THE PROGRAM WILL ALSO ASK IF A FULL DISKETTE SCAN IS 
WANTED TO VERIFY CRC. IF ADDRESS MODIFICATION IS SELECTED THEN 
THE PROGRAM WILL THEN ASK THE OPERATOR TO ENTER THE 8US ADDRESS 
AND VECTOR ADDRESS. 


CONDITIONS OF OPERATION 


THE PROGRAM EXPECTS TO RUN ON AN RX02 INTERFACE AND RX02 DRIVE 
SU8SYSTEM that HAVE PASSED ALL DIAGNOSTIC TESTS. ERRORS ARE 
REPORTED, BUT PRINTOUTS ARE NOT EXTENSIVE ENOUGH TO DIAGNOSE 
HARDWARE FAILURES. 

PROGRAM DESCRIPTION 

THE PROGRAM I S ORGAN! ZED AS F OL L OWS : 

START 

DETERMINE IF LSI PROCESSOR 

IF not APT WOE, CALL OPERATOR INTERFACE 

SET UP REGISTERS 

CALL SYSTEM SCHEDULER 

IF not apt mode-call OUTPUT SYSTEM DONE (GET FURTHER OPERATOR INSTRUCTIONS) 

PRINT END Of PASS 

INCREMENT PASS COUNTER 

CHECK IF ACT MODE 

BUS RESET 

IF IDLE MODE SET THEN IDLE IN LOOP 
JUMP BACK TO "CALL SYSTEM SCHEDULER" 
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, 577? 7..1 

, 5773 

I' 5774 
: 57'5 

I 5776 
f 5777 
5778 
i 5779 
5780 
I 5781 
1 578? 

I 5783 
!■ 5784 

5785 
» 5786 

5787 

5788 

5789 

5790 

5791 : 

5 ^ 9 ? 

5793 
5/"94 
5 795 
5 796 

A 79 7 : : 

5 798 

5799 

5800 

5801 
580? 

5805 

SS04 : 

5805 

5806 

5807 

5808 

5809 

5810 

5811 
581? 

5813 

5814 

5815 

5816 

5817 

5818 

5819 
58?0 
58?1 
58?? 

58?5 

58?4 

58?5 

58?6 

58?7 


FLOW 

BEGINROUT INE (/^OD PROGRAM START + CONTROL) 

: INITIALIZE STACK POINTER 

: IF RO IS false 

: : THEN 

: : PRINT PROGRAM IDENTIFICATION MSG 

: : IF APT MODE IS TRUE 

: : : THEN 

: : : GET APT SWITCH REGISTER 

: : : IF APT PROCESSOR Q-8US TRUE 

: : : : THEN 

: : : : SET LSI PROC PRI 

: : : : ELSE 

: : ; : SET PDP1 1 PROC PRI 

: : : ENDIF 

: : : GET APT VECTOR 

: : : SET SYSTEM VECTOR 

: : ; GET APT BASE ADDRESS OF UNIT UNDER TEST 

: : : CALL ADDRESSING TEST 

: : : ELSE 

: : : SETUP BUS TRAP FOR LSI PROC TEST 

: : : SET PROCESSOR STATUS WORD 

; : : I? LSI PROCESSOR STATUS WORD TRAP TRUE 

: ; ; : THEN 

: ; : ; SET LSI PROCESSOR WORD STATUS 

: : : : SET LSI PROCESSOR FLAG 

: : : ENDIF 

: : : CALL OPERATOR INTERFACE (MOD 1.0) 

: : : SET VECTOR INTERRUPT ADDRESS 

: : ENDIF 

: : SETUP DENSITY PER SWITCH REGISTER 

: : CLEAR TABLES + FLAGS 

: : CALL MOD-TEST ADDRESS 

; ENDIF 

: CLEAR PASS COUNTER 

: B6ND0 

: : CALL SYSTEM SCHEDULER (MOD 2.0) 

: : IF APT MODE FALSE 

: : : THEN 

; : : CALL OUTPUT DONE (MOD 3.0) 

: : ENDIF 

: : SET UP/PRINT END OF PASS ♦ PASS COUNT 

; : INCREMENT PASS COUNTER 

; : IF ACT MODE TRUE 

: ; : THEN 

: : : RESET 

: : : CALL ACT HOOKS 

: : ENDIF 

: : IF SYSTEM FLAG=IDLE 

: : : THEN 

: : : BEGINDO 

: : : ENDDO 

: : ENDIF 

: ENDDO 

ENDROUTINE 
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SR30 7.2 PROGRAM FUNCTIONAL DESCRIPTIONS 

I 

i S88? 

i 58?3 THE PROGRAM WILL ACCOMPLISH THE FOLLOWING FUNCTIONAL ELEMENTS: 

! 5p,34 

5835 r. PROGRAM INITIALIZE SELECTED SYSTEMS + CHECK STATUS 

5836 

: 5837 2 . READ MAINTENANCE STATUS ON SELECTED DRIVES ♦ CHECK STATUS 

I 5838 

5839 3. SET DENSITY ON ALL SELECTED DRIVES ♦ CHECK STATUS 

5840 

5841 4. CHECK CRC ON TRACKS #76 AND #0 OR ALL TRACKS. IF SELECTED 

5842 BY USER. REPORT STATUS, IF ANY ERRORS. 

5845 

5844 5. REPORT WftEN DONE. 








SEQ 0008 


; CZRXEAO RX02 FMTR PROG MACYll 30(1046) 
I CZRXEA.P11 20-SEP-78 10:48 

SS46 

SH47 

S848 

S8SO 

SftSI 

58S? 

58S3 
^8S4 
i 586S 
i 58S6 
S8S7 
i 68S8 
I S8S9 

5860 

5861 
586? 

586.5 

5864 

5865 

5866 

5867 

5868 

5869 

5870 

5871 
587? 

5873 

5874 

5875 

5876 

^ 5877 ■ 

5878 

5879 

5880 

5881 

5882 
5383 


I 1 

20-SEP-78 10:48 PAGE 65 


8.0 DEVICE REGISTERS 


CODE FUNCTION 


0 = FILL BUFFER 

1 = EMPTY BUFFER 

2 = WRITE SECTOR 

3 = READ SECTOR 

4 = SET DENSITY (RX02) ** BE CAREFUL TAKES 15 SECONDS ** 

5 = READ STATUS MAINTENANCE MODE ** 

6 = WRITE SECTOR WITH DELISTED DATA 

7 = READ ERROR CODE 

A 

I 


***** RX02 REGISTER BITS ***** 



1 

15 il4 ! 13! 

f t 1 ( f 1 1 

12! 11! 10! 09! 08! 07!06 !05 !04 i03 !02 !01 !00 ! 

RXCS: 

ERR!INT!X« ! 

XM !RX2! !SID!DEN!TR !IE !DON!DRV!FUN!FUN!FUN!GO i 

WC : 

WORD 

COUNT 


BA: 

BASE 

ADDRESS 

1 

RXES : 

X ! X ! X I 

1 • j 1 

X ! NXM ! WC ! SID! DRV ! DRV ! DEL ! DSK ! DEN ! AC ! INT 1 S I D ! CRC 1 
! !OVF!#1 !#1 !RDY!DAT!DEN!ERR!LOW!DON!RDY!ERR! 

RXD8: 

DATA 

BUFFER 
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5 INDEX 


BASIC DEFINITIONS 
ACm HOOKS 
APT I»IAILB0X“ETA8LE 
APT parameter block 

MODULE 0.0 - PROGRAM START AND CONTROL 
MODULE 1.0 ” OPERATOR INTERFACE 
MODULE 1.1 - GET SYSTEM BUS ADDRESS + TEST 
ADDRESSING TEST 

ERROR 1 UNIT NOT RESPONDING TO ADDRESS 

MODULE 1-2 - GET SOFTWARE SWITCH REGISTER 
MODULE 1.3 - CHECK SYSTEM ADDRESS 
MODULE 2.0 - SYSTEM SCHEDULER 
MODULE 2.1 - INITIALIZE CHECK 

ERROR 2 NO DONE BIT AFTER INITIALIZE 

ERROR 3 ERROR BIT SET ON INITIALIZE 

MODULE 2.2 - SYSTEM DRIVER 
WULE 2.2.1 - GET COMMAND 
MODULE 2.2.2 “ TRACK + SECTOR UPDATE 
MODULE 2.2.3 - DRIVE DRIVER 
MODUJ.E 2.2.3. 1 - OUTPUT DRIVE COMMAND 
MODULE 2. 2. 3. 1.1 - OUTPUT SINGLE WORD 
MODULE 2.2.5 - ERROR CHECK 

ERROR A READ MAINT STATUS COMMAM) ERRCX1 

ERROR 5 SET DENSITY COMMAND ERROR 

ERROR 6 READ SECTOR COMMAND ERROR 

WULE 2.2. 5.1 - DRIVE DROP 
MODULE 2.2. 5. 2 - DRIVES AVAILABLE CHECK 
MODULE 2.2. 5. 3 - SET TEST BITS IN CSR ♦ ESR 
MODULE 2. 2.5. 4 - LOOPING MODULE 
ERROR 7 LOOPING MOO-CSR ERR 

ERROR 10 LOOPING MOD-ESR ERR 

MODULE 2.3 - SYSTEM STATUS 
MODULE 2.3.1 ~ PRINT SYSTEM STATUS 
M(M>UIE 2.3.2 - SYSTEM DROP 
MCH>UIE 2.3.3 - SYSTEM TIMEOUT CHECK 
MODULE 2.4 ~ WATCH DOG SYSTEMYO 
MCXXJLE 2.5 - WATCH DOG SYSTEWri 
MODU.e 3.0 - OUTPUT SYSTEM DONE 
MODULE U.PRIHI - SET PROCESSOR PRIORITY HIGH 
module U.PRILO - SET PROCESSOR PRIORITY LOW 
MODULE U.PROPRI - SET PROCESSOR PRI 
MODULE U.SADR - SET SYSTEM BUS ADDRESS 
MODULE U.SUCO - SET SYSTEM UNDER CONTROL OFFSET 
MODUE U.DL - DELAY FOR ‘TR** OR "DONE" 

TIME OUT ERROR PRINT 
RXCS ERROR D€CK 
RX6S ERROR CFCCK 
TEST HEADER CHECK + PRINT 

MODULE U.PRTSYS - PRINT SYSTEM IDENTIFICATION 
MODULE U.PRTDRV - PRINT DRIVE IDENTIFICATION 
MODULE U.PRTKSC - PRINT TRACK + SECTOR ERROR IDENT 
CHECK BITS SET ♦ NOT SET 
ERROR SET SUBROUTINE 
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eus Initialize subroutine 

S9A? 



8294 

RX02 INTERRUPT HANDLER #0 

S94 5 



8501 

RX02 INTERRUPT HANDLER #1 

S94A 



8307 

TTY interrupt handler 

S94S 



8323 

BUS ADDRESS TRAP HANDLER 

S946 



8346 

APT ERROR HANDLER 

5947 



8358 

MODULE U.OPRANS - SETUP ♦ GET OPERATOR ANSWERS 

5948 



8371 

TTY ENTRY SUBROUTINE 

5949 



8418 

TTY ENTRY ERROR SUBROUTINE 

S9S0 



8427 

TTY ANSWER ENTRY SUBROUTINE 

5951 



8458 

TTY READ SUBROUTINE 

5952 



8474 

TTY ASCII OUTPUT SUBROUTINE 

5955 



8497 

OCTAL OUTPUT SUBROUTINE 

5954 



8560 

DATA CHARACTER OUTPUT SUBROUTINE 

5955 



8587 

TTY OUTPUT 

5956 



8601 

MESSAGE TABLE 

5957 



8666 

TEST HEADERS 

5958 



8677 

ERROR CODE STORAGE 

5959 



8691 

PATCH AREA 
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S%8 


S969 


S970 


5971 


597? 


5973 


5974 


5975 


5976 


5977 


5978 


5979 


5980 


5981 


598? 


5983 

00004 C 

5984 

000?00 

5985 

000400 

5986 

001000 

5987 

000?00 

5988 

000010 

5989 

000004 

5990 

00000? 

5991 

000400 

599? 

0000?0 

5995 

000040 

5994 

000001 

5995 

100000 

5996 

oooc?o 

5997 

040000 

5998 

004000 

5999 

000001 

6000 

00004 C 

6001 

000?00 

600? 

000006 

6005 

00001? 

6004 

000010 

6005 

000400 

6006 

000001 

6007 

000001 

6008 


60? 7 


6034 



9,1 LISTING 


& 

.TITLE CZRXEAO RX02 EWTR PROG 

;RX02-APT 

;14-fOARCH-78 

;L. PRUCm 

.ENABLE A8S.AMA 

.LIST ME 

.NLIST 8EX,CND.MC,MD 

PROGRAM EQUIVALENTS ***** 


DN8IT 


40 

TR8IT 

r,. 

?00 

DEN8IT 


400 

SIDE1 

=: 

1000 

DRVRDY 

3 

?00 

ACLOU 

,3 

TO 

INITDN 

3 

4 

SIDRDY 

3 

? 

DR I VE1 

3 

400 

OENERR 

3 

61 T4 

DRVDEN 

3 

BITS 

CRCERR 

3, 

BITO 

ERR8IT 

„ 

100000 

DR VI 

' 3 

20 

RXINI T 

3' 

40000 

RX20IT 

3 

4000 

APTENV 

r ■ 

1 

APTCSP 

3 

40 

CRCALL 

3 

SW7 

RDSEC 

3 

6 

RD/^ST 

3 

12 

SETDEN 

3 

10 

D8LDEN 

X=1 

N=1 


BITS 


S£Q 0011 


DONE BIT <CSR> 

TR BIT <CSR> 

DENSITY BIT <CSR> 

SIDE BIT <ESR> & <CSR> 

DRIVE READY 8IT-<ESR> 

AC LOU BIT <ESR> 

INITIALIZE DONE 8IT-<ESR> 

SIDE READY BIT— <£SR> 

DRIVE 4f1 BIT <£SR> 

DENSITY ERROR <£SR> 

DRIVE DENSITY <ESP> 

CRC ERROR BIT <ESR> 

ERROR BIT <CSR> 

DRIVE 1— <CSR> 

RXINir BIT <CSR> 

RX02 BIT <CSR> 

APT ENVIRONMENT TEST WORD 

APT CONSOLE SUPRESSION WORD 

CRC ALL TRACKS & SECTORS FLAG 

READ SECTOR COMMAND CODE (LEFT SHIFTED) 

READ MAI NT STATUS COMMAND CODE (LS) 

SET DENSITY COMMAND CODE (LS) 

DOUBLE DENSITY BIT 
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1 60A0 






60A? 

) 

'1 (1) , 



.S8TTL 

BASIC DEFINITIONS 




;*INI TJAl address Of THE S -''INTER 1000 *** 


(1) 

001000 


STACK- 

1000 


(1) 



.EOUIV 

EMT. ERROR ;;8AS1C DEFINITION OF ERROR CALL 


(' > 
(1) 
(1 ) 



.EQUIV 

10^. SCOPE ;;8ASir DEFINITION OF SCOPE CALL 




;*MISCEL 

LANEOUS DEFINITIONS 


n ) 

00001 1 


HT = 

11 ;;CODE FOR HORIZONTAL TAB 


r > 

00001? 


LE = 

12 ;;COD£ FOR LINE FEED 


(i> 

000015 


CR^ 

15 ;;CODE FOR CARRIAGE RETURN 


(') 

000?00 


CRLF = 

200 ;;COOE FOR CARRIAGE RETURN-LINE FEED 


(1) 

yj777t 


PS= 

177776 ;; PROCESSOR STATUS WORD 


(1 ) 



.EQUJV 

PS.PSW 


(1 ) 

177774 


STKLMT= 

177774 ;;STAC^ f^IT REGISTER 


(1) 

1 7777? 


PIRQt 

177772 ;; PROGRAM INTERRUPT REQUEST REGISTER 


O) 

177570 


DSWR = 

177570 ; .-HARDWARE SWITCH REGISTER 


n> 

177570 


DDJSP= 

17757C .-.-HARDWARE DISPLAy REGISTER 


( ■ ) 
{' ) 



;*GENERA1 PURPOSE REGISTER DEFINITIONS 


r> 

000000 


R0= 

XO ;; GENERAL REGISTER 


O) 

000001 


R1 = 

XI ;; GENERAL REGISTER 


(1 ) 

00000? 


R2- 

X? ;; GENERAL REGISTER 


(^) 

000005 


R5= 

X5 ; .-GENERAL REGISTER 


(1) 

000004 


R4= 

X4 .-.-GENERAL REGISTER 


(') 

000005 


R5^ 

%5 ;; GENERAL REGISTER 


(*!> 

000006 


R6= 

%6 .-.'GENERAL REGISTER 


("■> 

000007 


R7= 

%7 .-.-GENERAL REGISTER 


(1> 

000006 


SP= 

Z6 ;; STACK POINTER 


(*) 

(1) 

(1) 

000007 


PC = 

Z7 ;; PROGRAM COUNTER 




.•‘PRIORI 

TY LEVEL DEFINITIONS 


n> 

000000 


PR0= 

0 .-.-PRIORITY level 0 


C) 

000040 


PR1- 

40 ;. -PRIORITY LEVEL 1 


(1^ 

000100 


PR2= 

100 ;; PRIORI TV LEVEL 2 


(1) 

000140 


PR5= 

140 .-.-PRIORITY level 3 


(1) 

000?00 


PR4= 

200 .-.-PRIORITY LEVEL 4 


(1) 

000?4C 


PR5- 

240 .-.-PRIORITY LEVEL 5 


(1) 

000500 


PR6= 

300 .-.-PRIORITY level 6 


n; 

n> 

(1) 

000540 


PR7^ 

340 .'.'PRIORITY LEVEL 7 




; ‘••switch REGISTER*' SWITCH DEFINITIONS 


(1) 

100000 


SW15= 

100000 


C) 

040000 


SW14- 

40000 


(1) 

0?0000 


SW15= 

20000 


(1) 

010000 


SW12= 

10000 


(7) 

004000 


SW11 = 

4000 


n> 

002000 


SW10= 

2000 


(7) 

001000 


S‘W09=: 

1000 


(1) 

000400 


SW08= 

400 


(1) 

000200 


SW07= 

200 


(1) 

00C100 


SW06= 

100 


n ) 

000040 


SW05= 

40 



000020 


SW04= 

20 



000010 


SW03= 

10 
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CZRXf AO RX02 

FMTR PROG 

MACY11 

30(1046) 20-SEP- 

-78 10:48 

PAGE ( 

5 

Z-2 

S£0 001 S 

CZRXrA.PIl 

20-SEP-78 

1C-48 

BASK DEMNITIONS 



(1) 

000004 


SW02--: 

4 




(*') 

000002 


S^1:= 

2 




O) 

000001 


SWOO” 

1 




f') 



.EUUIV 

SU09,SW9 




( ■ ) 



.EOUiV 

SW08.SW8 




(1 ) 



.EQUIV 

SW07,SW7 




^ (T) 



.EQUiV 

SW06,SW6 




(1 ) 



.EOUi^ 

SuK)5,$W5 




(") 



.EQUIV 

SU04,SW4 




c> > 



.EQUIV 

SW03,SW3 




(1) 



.EQUIV 

SUK)2.SW2 




( ( > 



.EOUIV 

SWODSWI 




(" > 



.EQUIV 

SW00,SW0 




C ) 

(1 > 



.••'DATA 1 

?D OEEJNITJONS (8IT00 TO 81715) 


(1) 

100000 


BIT1S= 

100000 




n> 

040000 


61714= 

400P0 




CD 

020000 


81713= 

20000 




(" ) 

010000 


8ri2= 

1 0000 




= (D 

004000 


eni= 

4000 




(* ) 

002000 


81710= 

2000 




(1 ) 

001000 


61700= 

1000 




n ) 

000400 


eno8= 

400 




(D 

000200 


81707= 

200 




CD' 

C00100 


81 TOG- 

100 




(D 

000040 


BIT 0!>= 

40 




CD 

00*0020 


BllCHr-- 

20 




(1 > 

000010 


81705= 

10 




(■) 

000004 


BIT02-- 

4 




(1) 

000002 


81701= 

2 




(D 

000001 


81700= 

1 




(D 



.EOUIV 

81 '^09,8.7 T9 




(1 > 



.EOUIV 

8IT08,8IT8 




CD 



.EOUIV 

81707,8177 




CD 



.EOUIV 

81706,8176 




(D 



.EOUIV 

81705,8175 




CD 



.EOUIV 

81704,8174 




(D 



.EOUIV 

81703,8173 




(D 



.EOUIV 

81702,8172 




(D 



.EQUIV 

81701,8171 




(; > 



.EQUIV 

81700,8170 




( 1 / 

! (D 



;*8ASIC 

••CPU*’ 7RAP 

VECTOR 

ADDRESSES 


CD 

000004 


ERRVEC= 

4 



Tine OUT AND OTHER ERRORS 


(D 

000010 


RESVEC= 

10 



RESERVED AND ILLEGAL INSTRUCTIONS 
•*T”0IT 


(D 

000014 


T8JTVEC 

= 14 




(D 

000014 


TRJ\/EC- 

14 



TRACE TRAP 


(D 

000014 


BPTV£C= 

14 



BREAKPOINT TRAP (8PT) 


CD 

000020 


I0TVEC= 

20 



INPUT/OUTPUT TRAP (lOT) **SC0PE»* 


(1 

000024 


PWRVEC= 

24 



POWER FAIL 

,1 

D / 

000030 


EMTVEC= 

30 



EMULATOR TRAP (EMT) **ERROR** 
•TRAP” TRAP 

if 

(D 

000054 


TRAPVEC 

=34 



f 

(D 

000060 


TKVEC= 

60 



TTY KEYBOARD VECTOR 


(D 

000064 


TPVEC= 

64 



TTY PRINTER VECTOR 


CD 

000240 


PIRQVEC 

=240 



PROGRAM INTERRUPT REQUEST VECTOR 


60a5 









|: : 
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BASIC DEFINITIONS 

■; 60AA 




;***** trap cat 

CHERS ***** 

3 604S 






60A6 


000000 


.^-0 


^ 604Z 

000000 

000000 


.WORD 

0 

60A8 

000002 

000000 


.WORD 

0 

I 60A9 

000004 

000000 


.WORD 

0 

■ 60S0 

000006 

oooooc 


.WORD 

0 

^ 60^.1 

000010 

000000 


.WORD 

0 

i 60.2 

0000 V 

oooooc 


. WORD 

0 


000014 

000000 


.WORD 

0 

1 >A 

000016 

000000 


.WORD 

0 

■SS 

000020 

000000 


.WORD 

0 

:j OUS6 

000022 

000000 


.WORD 

0 

\ 6057 

000024 

000000 


.WORD 

0 

* 6058 

000026 

000000 


.WORD 

0 

1 6059 

000050 

000000 


.WORD 

0 

6060 

000052 

000000 


.WORD 

0 

6061 

000054 

000000 


.WORD 

0 

60t>? 

000056 

000000 


. WORD 

0 

6065 

000040 

000000 


.WORD 

0 

606A 

000042 

000000 


.WORD 

0 

i 6065 

000044 

000000 


.WORD 

0 

6066 






i 6067 






6068 






6069 

(1) 

(?) 




.S8TTL ACT11 HOOKS 




• t '#■ Ik ''k-'k k 'k k k"k ir'iHr k k k k k k k k k k kk 

CD 




.•HOOKS RE OU I RED 

BY AC Til 

(D 


000046 


SSVPC-. 


(1) 


000046 


.=46 


CD 

000046 

001422 


SENDAD 


(D 


000052 


.=52 


CD 

000052 

000000 


.WORD 

0 

CD 


000046 


.= SSVPC 





I 


UNASSIGNED TRAP 
TIME OUT, BUS TRAP 
RESERVED INSTRUCTION 
TRACE TRAP 


.•SAVE PC 

;;1)SET LOC.46 TO ADDRESS OF SENDAD 

.;2)SET LOC.5? TO ZERO 
;; RESTORE PC 










C 2 


! CZRXEAO 

RX02 FM1 

n PROG 

MACYII 

30(104o) 20-SEP-78 10 

:48 PAGE 67-4 


CZRXFA. 

P11 20-SCP-78 

10:48 

ACT11 

HOOKS 


SEO 0015 

i 60 




* 

TTY interrupt vector 

OU f r. 

f^O’7^ 


000060 



.-60 




000060 

012420 



TTJNT 


;TTY INTERRUPT HEADER ADDRESS 

60?’S 

'i 

000062 

000000 



0 



DU ^ u 

60'7 





START ADDRESS ****♦ 


60 Z8 








: 


000200 



. =200 



i 6080 

000200 

005000 



CLR 

RO 


6081 

000202 

000137 

001000 


JWP 

START 

.•PROGRAM START 

i 6082 








' 6083 


000210 



.=210 



) 608A 

000210 

012700 

000001 


MOV 

#1 ,R0 

:SET NO HEADER FLAG 

6085 

000214 

000137 

001000 


JMP 

START 


6086 








6087 


000220 



.=220 



6088 

000220 

005257 

000516 


INC 

DBGfLG 

:SET DEBUG FLAG 

6089 

000224 

005000 



CLR 

RO 

;SET SO HEADER WILL PRINT 

6090 

000226 

000137 

001000 


JMP 

START 


6091 








1 6092 




• # ft if. 

f 

RX02 INTERRUPT VECTORS ***’^'» 

I 6093 








1 6094 


000264 



.=264 



; 6095 

000264 

012404 



RXINTO 


:RX02 INTERRUPT HANDLER ffO ADDRESS 

6096 

000266 

000340 



340 



6097 








6098 


000270 



.=270 



6099 

000270 

012412 



RXINT1 


:RX02 INTERRUPT HANDLER #1 ADDRESS 

: 6100 

000272 

000340 



340 



i 6101 








6102 


000300 



.=300 



6103 








6104 




»■ uriir'irWt 
» 

CONSTANTS ***** 


; 6105 








6106 

000300 

177560 


TKS: 

177560 


TTY READER STATUS 

6107 

000302 

177562 


TK8: 

177562 


TTY READ BUFFER 

6108 

000504 

1 77564 


TPS : 

177564 


TTY PUNCH STATUS 

6109 

000506 

177566 


TP8: 

1 77566 


TTY PUNCH BUFFER 

6110 








6111 








6112 




t it 1%. 

INITIAL 

CONSTANTS ***** 


6113 








6114 

000310 

000264 


VECrO: 

264 


INTERRUPT VEC T01 SYS #0 

: 6115 

000312 

000270 


VECT1 : 

270 


INTERRUPT VECTOR SYS #1 

6116 

000514 

1 771 70 


REGSO: 

177170 


STARTING REGISTER ADDRESS SYS #0 

6117 

000316 

1 77200 


REGS1 ; 

177200 


STARTING REGISTER ADDRESS SYS #1 

i 6118 

000320 

000004 


BTRP: 

4 


BUS TRAP ADDRESS 

6119 

000322 

000006 


BTRP2: 

6 


BUS TRAP RRIORITY LEVEL 

6120 

000324 

000401 


SWREG: 

401 


SOFTWARE SWITCH REGISTER - PRESET-> DEN=DBl.SYSO 

6121 
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6123 


61 ?4 


000400 


.=^400 



61 ?S 


000401 

ASWREG: 

=401 



6126 


000264 

AVECT1 = 

=264 


;APT VECTOR 264 

6127 


177120 

ABASE=177170 


;APT UNIBUS ADDRESS 

6128 

(1 ) 
(?) 



.S8TTL 

APT MAI L80X-E TABLE 




(1) 



.EVEN 




(1; 

000400 


SWUL: 



;;APT HAIL80X 

(1) 

000400 

000000 

SMSGTY 

.WORD 

A/^SGTY 

;;M£SSAGE TYPE CODE 

(T) 

000402 

000000 

SFATAL 

.WORD 

AfATAL 

;; FATAL ERROR NliiBER 

(1) 

000404 

000000 

STESTN 

.WORD 

ATESTN 

;;TEST NUP«ER 

(1) 

000406 

000000 

SPASS: 

.WORD 

APASS 

;;PASS COiiNT 

(1) 

000410 

000000 

SDEVCT 

.WORD 

ADEVCT 

;; DEVICE COUNT 

(1 ) 

000412 

000000 

SGNir: 

.WORD 

AUNJT 

;;I/0 UNIT NUMBER 

(1) 

000414 

000000 

SMSGAD 

.WORD 

AMS GAD 

;; MESSAGE ADDRESS 

(1) 

000416 

000000 

SMSGLG 

.WORD 

AMSGLG 

.•.-MESSAGE LENGTH 

(1) 

000420 


SE TABLE: 


;;APT ENViROM^ENT TABLE 

il) 

000420 

000 

SENV: 

.BYTE 

AENV 

.-.-ENVIRONMENT BYTE 

(1 ) 

000421 

000 

SENVW: 

.BYTE 

AENVM 

;; ENVIRONMENT MODE BITS 

(1) 

000422 

000401 

SSWREG 

.WORD 

ASWREG 

;;APT SWITCH REGISTER 

(1 ) 

000424 

000000 

SUSWR: 

.WORD 

AUSWR 

.-.-USER SWITCHES 

(1 ) 

000426 

000000 

SfPUOP 

.WORD 

ACPUOP 

.-.-CPU TYPE. OPT IONS 

n ) 



*■ 'A 



BITS 15-11-CPU TYPE 

(1) 



■ ' lA. 



1 1 /04=:01 . 1 1 705=02, 1 1 720=03. 1 1 740=04 . 1 1 745=05 

(1) 






11 770=06, PD0=07, 0=10 

(') 






BIT 10=REAL TIME CLOCK 

(1 ) 



• ' •' ^ 

. # 



BIT 9=FL0ATING point PROCESSOR 

r ) 



■' '* *( ' 



BIT 8=f«M0RY MANAGEMENT 

(1) 

000430 

000 

SWIS1. 

: .BYTE 

AMAM51 

;;HIGH ADDRESS.M.S. BYTE 

(*) 

000431 

000 

SWTYP1 

.8YTE 

AMTYPl 

;,-MEM. TYPE ,8LK/n 

(1) 



; * ' Hr 



MEM. TYPE BYTE — (HI BYTE) 

D 



, . 



900 NSEC CORE =001 

(^) 






500 NSEC BIPOLAR=002 

( i ) 



• A 



500 NSEC MOS=003 

(1) 

000432 

000000 

smoRi. 

.WORD 

AmDRI 

.-.-HIGH ADDRESS.BLK#! 

(1 > 



■ ■» 



MEM.LAST ADDR.=5 6YTES,THIS W(»^D AND LOW OF ''TYPE** 

(V 

000434 

000 

inAMS2 

.8YT£ 

A7W1S2 

.-.-HIGH ADDRESS.M.S. BYTE 

(1) 

000455 

000 

SWTYP2 

.8YTE 

AMT YP2 

.•;M£M.TYPE,8LK#2 

(1) 

000436 

000000 

smDR2 

.WORD 

AMADR2 

;;F€M.LAST ADDRESS.6LKHf2 

(1) 

000440 

000 

SMAWS3 

.BYTE 

A/WIS3 

;;HIGH ADDRESS.M.S. BYTE 

(1) 

000441 

000 

$WTYP3 

•BYTE 

AMTYP3 

;;1^M.TYPE,BLK#3 

(1) 

000442 

000000 

SrtADR3 

.WORD 

AMADR3 

;; MEM. LAST ADDRESS.BLK4f5 

(1) 

000444 

000 

SMAMS4 

.BYTE 

AMAMS4 

;;HIGH ADDRESS.M.S.BYTE 

(1) 

000445 

000 

SWTYP4 

.BYTE 

AMTYP4 

;;^M.TYP£,BLK#4 

(1) 

000446 

000000 

SnADR4 

.WORD 

AMADR4 

;;M£M.LASr ADDRESS.BLKA4 

O) 

000450 

000264 

svEcn 

.WC^D 

AVECn 

;; INTERRUPT VECTOR#! .BUS PRIORITY#! 

(1) 

000452 

000000 

SVECT2 

.WORD 

AVEC T2 

;;INTERRIPT VECT0R#2BUS PRI0RITY#2 

(1) 

000454 

177170 

S6ASE: 

.WORD 

ABASE 

;;BASE ADDRESS OF EQUlPf^NT UNDER TEST 

(1) 

000456 


SETEND: 





(1) .WEXIT 


ABOVE 


SfU 001^ 
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61‘SO 
(' ) 
'?) 



' 1 ) 
(?) 
(^ ) 


000456 

(1) 


000024 

(") 

000024 

000200 

(1 ) 


000044 

(^) 

000044 

C 30456 

(1 ) 


000456 

(?) 



(1 ) 



(1) 



(1) 



(1 ) 

000456 


(1 ) 

000456 

000000 

(1) 

000460 

00040C 

(1 ) 

000462 

000120 

(1) 

000464 

000120 

(1 ) 

000466 

000120 

(1 ) 

000470 

0000. 7 


.S0TTL APT PARAMETER BLOCK 

• • t ■!! » <1 * * 1 % I*r ♦ ♦ t t ♦ 1 1 » W Hr H # ♦ t <r ♦ t % # t * t ♦ ♦ t # t # t' # 

•SET locations ?4 AND 44 AS REQUIRED FOR APT 
.SX^. ;; SAVE CURRENT location 

.=34 ;;SET POWER FAIL TJ POINT TO START OF PROGRAM 

200 ;;FOR APT START UP 

.-44 ;;POINT TO APT INDIRECT ADDRESS PNTR. 

SAPTHDR ; .-point TO APT HEADER BLOCK 
. = .$X ; .-RESET LOCATION COUNTER 

* • n %■ # # t * t' 't' t" W # n ♦ 't 't t ♦ t' If # "t ♦■■t' 1 1 ■* # t"# 1 1 ♦ ■# 

'setup apt PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
.-INTERFACE SPEC. 


SAPTHD: 
SHIBTS: .WORD 
SMBADR: .WORD 
ST STM: .WORD 

SPASTM; .WORD 
SUNITM: .WORD 
.WORD 


0 .-.-TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMAIL ; .-ADDRESS OF APT MAILBOX (BITS 0-15) 

120 .-.-RUN TIM OF longest TEST 

120 .-.-RUN TIME IN SECS. OF 1ST PASS ON 1 L^IT (QUICK VfRlfvi 

120 .-.-ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDIUONAi UNIT 

$E TE ND-SMAIL/2 .-.-length MAILBOX-E TABLE (WORDS ) 
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apt PARAMETER BLOCK 

' 6' V 

6l 

000*. I',- 

’ 771 70 


,, • 

• 

RXISAD: 

Flags and counters 

177170 

^ 6^ SS 

C 004 74 

1 771 72 


RXDBAD; 

177172 

61 S6 

0004 76 

002264 


RXVECT; 

264 

6' 3.^ 

000500 

COOOC1 


SECTR: 

1 

f>i38 

000 5C2 

oooooc 


TRACK: 

0 

: 61 39 

000504 

000524 


SWR : 

#swreg 

oKO 

000506 

COCOOO 


DENS: 

0 

6lA1 

000510 

COOOOO 


REGS; 

0 

i 6142 

000512 

oooooc 


VECT: 

0 

1 ol43 

0'00514 

oooooc 


INI TPS: 

0 

6“' 44 

000516 

OOOOOC 


DBGFLG: 

0 

f^US 

000520 

000000 


LSIFlG: 

0 

i o’ 46 

000522 



PCNTR: 

0 

i u 7 

000524 

oooooc 


TOB: 

G 


0<00526 

oooooc 


TI8: 

0 

6149 

000530 

oo<oooc 


ANSWER: 

0 

6160 

000552 

w w Wv 


’T*/AIT: 

0 

61 n 

<000534 

000000 


C SR : 

0 

o1 62 

O'>0536 

000000 


E SR ; 

0 

fi16S 

<000540 

oooooc 


WDOT: 

0 

o1 64 

0<00542 

O'DODOC 


CMD: 

0 

f>166 

000544 

000000 


CSRMSK: 

0 

61 66 

0^00546 

oooooc 


C SR CMP: 

c 

^ 61 S7 

OOC550 

oooooc 


E SRMSK : 

0 

. 61 68 

000552 

oooooc 


E SR CMP: 

0 

: 6159 

000554 

oooooc 


TSTERR: 

0 

6160 

000556 

ooocoo 


SOWMLT: 

0 

6161 

000560 

oooooc 


SIWMLT: 

0 

6162 

000562 

oooooc 


TEMPI : 

0 

6163 

000564 

OOOOOC' 


TEMP2: 

0 

6164 

000566 

oooooc 


TEMP5: 

0 

6165 

00:570 

OOOOOC 


B^RPFL; 

0 

6166 

000572 

oooooc 


SYSMSG: 

0 

6167 

000574 

oooooc 


SvSFLG: 

0 

6168 

000576 

oooooc 


STFlG: 

c 

6169 

000600 

oooooc 


TMSGAD: 

0 

6170 

000602 

oooooc 


HDRFLG: 

0 

6171 

000604 

oooooc 


ERRTYP: 

0 

6172 

000606 

oooooc 


SYSERR: 

0 

6^75 

000610 

oooooc 


SUC; 

0 

6174 

000612 

oooooc 


SOAV: 

0 

6175 

000614 

oooooc 


SIAV: 

0 

6176 

000616 

ooocoo 


SORDY: 

0 

6177 

000620 

000000 


S1RDY: 

0 

6178 

000622 

000000 


SOCMD : 

0 

6179 

000624 

000000 


SI CMD: 

0 

i 6180 

000626 

000000 


SODN: 

0 

618! 

000630 

000000 


SIDN: 

0 

6182 

000632 

000000 


TTITFG: 

0 

6183 

000634 

oooooc 


ENDFT8: 

0 


StQ 0018 


;RX02 CSR ADDRESS 
;RX02 D8R ADDRESS 
;RX02 VECTOR ADDRESS 
.•SECTOR ADDRESS 
.•TRACK ADDRESS 
; SWITCH REG ADDRESS 
; DENSITY WORD 
.•REGISTER ADDRESS BUFFER 
; VECTOR ADDRESS BUFFER 
•PROGRAJ^ INITIALIZE FLAG 
; DEBUG FLAG 

.-LSI OR switchless PROCESSOR FLAG 

.•PASS COUNTER 

•TYPE OUTPUT buffer 

;TYPE INPUT BUFFER 

;ANSWER TO QUESTION BUFFER 

;TTY WAIT FLAG 

;RXtS TEW> STORE 

;RXES TEMP STORE 

.-WORD FOR OUTPUT 

;RX COMMAND 

;RXCS MASK WORD 

•RXCS COMPARE WORD 

;RXES MASK WORD 

;RXES COMPARE WC)RD 

.-TEST ERROR FLAG 

.•WATCHDOG MULTIPLER SYSTEM/FO 

.•WATCHDOG MULTIPLER SYSTEM#1 


.•BUS TRAP flag 

.•SYSTEM MESSAGE BUFFER 

.•SYSTEM flags 

; - start program FLAG 

.•MESSAGE ADDRESS-HEADER 

.•HEADER flag 

.•ERROR type 

.•SYSTEM ERROR 

.•SYSTEM UNDER CONTROL 

.•SYSTEMFFO AVAILABLE 

;SYSTEMFF1 AVAILABLE 

.•SYSTEMS READY 

.-SYSTE^Wfl READY 

.-SYSTEM/SFO COMMAND WORD 

.•SYSTEM#! COMMAND WORD 

;SYSTEM#0 DONE FLAG 

.•SYSTEM#! DONE FLAG 

;TTY INTERRUPT FLAG 

;*** DO NOT REWDVE THIS LABEL *** 
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61 8S 


001 000 




.--1000 

pi 86 





.S8TTL 

MODULE 

6187 







6188 







6189 

001000 

012706 

001000 


START; 

MOV 

6190 

001004 

005057 

000516 



CLR 

6191 

001010 

005037 

000406 



CLR 

6192 

001014 

005037 

000570 



CLR 

6193 

001020 

005700 



I AGO: 

TST 

6194 

001022 

001115 




8NE 

6195 

00^024 

012704 

014040 



MOV 

6196 

001030 

004737 

013232 



JSR 

6197 

001034 

132737 

000001 

000420 

1600: 

61 T8 

6198 

001042 

001441 




BEO 

6199 

001044 

122737 

000100 

000427 

I COO: 

CMP8 

62CK) 

001052 

001006 




BNE 

p201 

001054 

012737 

000001 

000520 


MOV 

6202 

001062 

106427 

000200 



MIPS 

6203 

001066 

000403 




BR 

6204 

001070 

012777 

000340 

176700 

LCOO: 

MOV 

6205 

001076 

012737 

000422 

000504 

ECOU: 

MOV 

6206 

001104 

113700 

000^ 50 



Move 

6207 

001110 

042700 

1 77400 



BIC 

6208 

001114 

012720 

012404 



wv 

: 6209 

001120 

012710 

000340 



MOV 

6210 

001124 

013737 

000454 

000472 


MOV 

621 1 

001132 

C04737 

002204 



CALL 

' 6212 

001136 

013737 

000472 

000514 


mv 

6213 

001144 

000444 




BR 

6214 

001146 

042777 

000100 

177124 

LBOO; 

eic 

6215 

001154 

012777 

001200 

177156 


MOV 

6216 

001162 

012777 

000200 

177152 


MOV 

6217 

00H70 

012777 

000340 

176600 

IDOO: 

MOV 

6218 

001176 

000405 




BR 

6219 

001200 

012737 

000001 

000520 

LSITRP: 

MOV 

6220 

001206 

106427 

000200 



MIPS 

6221 

001 21 2 

005077 

177102 


EDOO: 

CLR 

6222 

001216 

005077 

177100 



CLR 

6223 

00V22 

004737 

001456 



CALI 

6224 

001226 

013705 

000310 



MOV 

6225 

001232 

012725 

012404 



MOV 

6226 

001256 

012715 

000340 



MOV 

6227 

001242 

013705 

000312 



MOV 

6228 

001246 

012725 

012412 



MOV 

6229 

001252 

012715 

000340 



MOV 

62-30 

001256 

005037 

000522 


EAOO: 

CLR 

6251 

001262 

032777 

000400 

177214 

IJOO: 

BIT 

6232 

001270 

001404 




BEO 

6255 

001272 

012737 

000400 

000506 


MOV 

62-V. 

001300 

000402 




BR 

6255 

001502 

005037 

000506 


LJOO: 

CLR 

6256 

001306 

012702 

000524 


BEOO: 

MOV 

6257 

001312 

012700 

000634 



MOV 

6258 

001316 

005022 



o 

o 

m 

CLR 

6259 

001320 

020200 




CMP 

6240 

001 322 

103775 




BLO 


G 2 
PAGE 6?-8 


SEO 0019 


).0 - POOGRAM START AND CONTROL 


AlOOO.SP 

086ELG 

SPASS 

BiRPFL 

RO 

EAOO 

#MSG3,R4 

E>C,TTOUT 

AAPTENV,$ENV 

leoo 

#100.SCPUOP+1 

LCOO 

/Yl/LSIFLG 
A?00 
f COO 

#PR7,aPSW 

ASSWREG.SWR 

$VECT1,R0 

^177400,R0 

^RXJNT0.(R0)+ 

A340,(R0) 

$aASE,RXCSAD 

ADTST 

RXCSAD,R£GS0 

EAOO 

^IT6,aTXS 

#LSITRP,aeTRP 

^?00,aBTRP2 

A540,aPSW 

EDOO 

A1 .LSJFLG 

A200 

oBJRP 

mJRP2 

OPINT 

VECT0,R5 

^RXINT0,(R5)+ 

#PR7,(R5) 

VECTORS 

#RXINT1 ,(R5)+ 

MPR7,(RS) 

PCNTR 

#8IT8,aSWR 

LJOO 

^DeLDEN.DENS 

BEOO 

DENS 

AT0e,R2 

/YENDFTB.RO 

(R2>* 

R2,R0 

BFOO 


;SET STACK POINTER 
;ClEAR debug FLAG 
; clear apt pass COUNTER 

; Clear bus trap flag 

;IF PRINT HEADER 
.-INDICATED, THEN 
: SETUP TITLE MSG 
-PRINT TITLE 
;IF APT MODE 
.-TRUE, then 
;IF CPU IS 
;LSI/O-0US. THEN 
.-SET LSI PROCESSOR FLAG 
;SET LSI PRIORITY 

•SET PDP-11 PRIORITY 

.-SET SOFTWARE SWITCH ADDRESS 

.-GET VECTOR FROM ETA8LE 

; CLEAR TOf BYTE RO 

.•LOAD IiMTeRRUPT ADR IN VECTOR 

.LOAD PRIORITY 

.-SET REGISTER BASE FROM ETABLE 
.-CALL ADDRESSING TST 
.-SET SYSAO BUS ADDR 
;6R TO END 'A* 

.-DISABLE TTY KEYBOARD INTERRUPTS 

.•SET BUS TRAP FOR LSI TRAP 

;SET UP PROCESSOR PRI-BUS TRAP 

.-IP PROCESSOR IS 

;AN LSI. THEN 

.-SET LSI PROCESSOR FLAG 

.-SET LSI PROCESSOR PRIORITY 

.-RESET BUS TRAP 

.-RESET BUS TRAP 

.-CALL GET USER INPUT (MOD 1.0) 

;G£T SYS/YO VECTOR 

.-SET SYSTEM<rO VECTOR 

;S£T PROCESSOR PR I 

;G£T SYSi^l VECTOR 

.-SET SYSTEWn VECTOR 

.-SET PROCESSOR PR I 

.-CLEAR PASS COUNTER 

;IF SWITCH REG HAS DOUBLE DENSITY BIT 

.-SET, THEN 

; SETUP DENSITY=D0UBLE 
;8R TO BEGIN DO 'E' 

.-SETLP DENSITY'S INGLE 

.-SET BEGINNING OF TABLE 

.-SET END OF TABLE 

.-CLEAR TABLE OF FLAGS COUNTERS 

;DO UNTIL 

;END OF TABLES DONE 


CAPTl 

[APT*i 

CAPT] 

[APT3 

CAPTj 

[APT] 

FAPTJ 

[APT] 

[APT] 

[APT] 

[APT] 

[APT] 

[APT] 

[APT] 

[APT] 

[APT] 

[APT] 

[USER] 

[USER] 

[USER] 

[USER] 

[USER] 

[USER] 

[USER] 

[USER] 

[USER] 

[USER] 

[USER] 

[USER] 

[USER] 

[USER] 

[USER] 

[USER] 



CZRXEAO RXO? FMTR PROG 


CZRXEA. 

pn 20- SEP- 78 

6241 

001524 

005257 

6242 

001550 

004757 

6245 

001554 

1 52757 

6244 

001 542 

001002 

6245 

001544 

004757 

6246 

001350 

012704 

6247 

001 554 

004737 

6248 

001560 

005237 

6249 

001364 

015703 

6250 

001570 

004757 

6251 

001374 

005257 

6252 

001400 

013757 

6253 

001406 

013700 

6254 

001412 

001407 

6255 

001414 

005037 

6256 

001420 

000005 

6257 

001422 

004710 

6258 

001424 

000240 

6259 

001426 

000240 

6260 

001430 

000240 

6261 

001432 

032737 

6262 

001440 

001401 

6263 

001442 

000777 

6264 

001444 

000005 

6265 

001446 

005037 

6266 

001452 

000137 


6267 


f^AACvn 50(1046) 20-SE 

10:48 MODULE 

000514 

002514 

000001 000420 IGOO: 

007676 

014164 EGOO: 

013252 

000532 

000522 

013346 

000522 

000522 000406 


000042 

IHOO: 

000042 

SENDAD 


000100 000574 

1100: 


1$: 


EIOO: 

000532 


001506 

ENDOO 


H 2 

-78 10:48 PAGE 67-9 
0.0 - PROGRAM START AND 

INC INJTPG 

CALL SYSCHD 

BJT8 <tAPTENV,$ENV 

BNE EGOO 

CALL OTSYDN 

MOV AMSG6,R4 

JSR PC, T TOUT 

INC TTWAIT 

MOV PCNTR,R3 

JSR PC,OCTP 

INC PCNTR 

MOV PCNTR, $PASS 

MOV aff42,R0 

BEQ IJOO 

CLR afc»42 

RESET 

JSR PC,(RO) 

NOP 

NOP 

NOP 

BIT #100,SYSFLG 

BEQ EIOO 

BR IS 

RESET 

CLR TTWAIT 

JMP BEOO 


CONTROL 


SEQ 0020 


SET PROGRAM INITIALIZE FLAG 
GO FORMAT SCHEDULED SYSTEMS 
IF APT MODE 
FALSE, THEN 

CALL OUTPUT SYSTEM DONE 
SET END OF PASS MSG 
PRINT END OF PASS 
SET TTY WAIT FLAG 

PRINT PASS NUMBER 
BUMP PASS COUr^TER 
BUMP APT PASS COUNTER 
IF ACT 
MODE, THEN 
ABORT THIS PROGRAM 

ACT HOOKS 
* DO NOT 

REMOVE 

THESE NOP'S * 

IF IDLE MODE 
SET, THEN 
IDLE LOOP 

CLEAR TTY WAIT FLAG 
DO NEXT PASS 


(MOD 2.0) 
(MOD 5.0) 
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6?69 

6270 

6271 

6272 

6273 

6274 

6275 

6276 

6277 

6278 

6279 

6280 
6281 
6282 

6283 

6284 

6285 

6286 

6287 

6288 

6289 

6290 

6291 

6292 


6294 

6295 

6296 

6297 

6298 

6299 

6300 
6501 

6302 

6303 

6304 

6305 

6306 

6307 

6308 

6309 

6310 

6311 

6312 
6315 

6314 

6315 

6516 

6517 

6518 

6519 

6520 
6321 


.S8TTL MODULE 1.0 - OPERATOR INTERFACE 

8EGINR0UTINE (MODULE 1.0 - GET USER INPUT) 

SET SOFTyARE SWITCH REG ADDRESS 
SETUP & PRINT ’>^£LP?‘' 

CALL GET ANSWER 
IF answer=yes 

: THEN 

SETUP & PRINT HELP FILE 

END IF 

SETUP £ PRINT “SET DISKETTE TO SINGLE DENSITY? (Y OR N)’* 
CALL GET ANSWER 

IF answer=yes 

: THEN 

SET DENS & SOFT SWITCH REG DENSITY BIT=SINGl£ DENSITY 

: ELSE 

SET DENS t SOFT SWITCH REG DENSITY BIT=D0U8LE DENSITY 

END IF 

SETUP & PRINT ’VERIFY DISKETTE CRC (ALL TRACKS)? (Y OR N)’’ 
CALL GET ANSWER 
IF answer=yes 

: THEN 

: SET SOFT SWITCH REG=CRC ALL BIT 

: ELSE 

CLEAR SOFT SWITCH REG=CRC ALL BIT 

END IF 

SET <SUC>-0 

SETUP & PRINT • r LOPPY SYS #0 ADDRESS CHANGE? (Y OR N)*’ 

CALL GET ANSWER 
IF ANSWER=YES 
: THEN 

SET YES ANSWER FLAG 
: ELSE 

: CLEAR YES ANSWER FLAG 

END I F 

CALL GET SYSTEM BUS ADDRESS 

CALL CHECK SYSTEM BUS ADDRESS (SEE IF BOOT StS(EM) 

SET SOFT SWITCH REG=SYS #0 AVAILABLE 

SETUP I PRINT “IS SECOND FLOPPY SYSTEM AVAILABLE? (Y OR N)’ 
CALL GET ANSWER 
IF ANSWER=YES 
: THEN 

SET <SUO=1 
SET YES ANSWER FLAG 
: CALL GET SYSTEM BUS ADDRESS 

CALL CHECK SYSTEM BUS ADDRESS (SEE IF BOT P€DIA) 

SET SOFT SWITCH RE6=SYS #1 AVAILABLE 

END IF 

IF DE8U6.FLAG=SET 
: THEN 

CALL GET SOFT SWITCH REG 

ENDIF 

ENDROUTINE 
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C2RXEA. 

PIT 20-SEP-78 

10:48 


MODULE 

1.0 - OPERATOR INTERFACE 

J 

65?A 

001456 

012757 

000524 

000504 

OPINT: 

MOV 

ASWREG,SWR 

652 S 

001464 

012704 

015726 



MOV 

AMSG45,R4 

6526 

001470 

004757 

015252 



CALL 

TTOUT 

6527 

001474 

004:^37 

012624 



CALL 

getans 

6?2‘8 

001 500 

1 22757 

000151 

000550 

lAlO: 

CMP8 

#'Y, answer 

6529 

001 506 

001004 




8NE 

eaio 

6550 

001510 

012704 

01 5500 



MOV 

#MSG59,R4 

6551 

001514 

004757 

01 5252 



CALL 

TTOUT 

6552 

001 520 

012704 

016045 


EA10: 

MOV 

^SG45,R4 

6555 

001524 

004737 

01 5252 



CALL 

T TOUT 

655A 

001550 

004757 

012624 



CALL 

GETANS 

655S 

001554 

122757 

000151 

000550 

1610: 

CMP8 

^’Y, ANSWER 


001 542 

001004 




8NE 

L810 

6557 

001544 

042777 

000400 

176752 


81 C 

wEAeiT,aswR 

6558 

001552 

000405 




8R 

EBIO 

6559 

001554 

052777 

000400 

176722 

L810: 

BIS 

#DENBIT,aSWR 

65A0 

001562 

012704 

016125 


EBIO: 

MOV 

#MSG46,R4 

6541 

001 566 

CX)4737 

01 5252 



CALL 

TTOUT 

6542 

0«}T572 

004737 

012624 



CALL 

GETANS 

6545 

001576 

122757 

000151 

000530 

IC10: 

CMP8 

#'Y, ANSWER 


001604 

001004 




8NE 

irro 

6545 

001606 

052777 

000200 

176670 


BIS 

4^CRCALL,aSWR 

6546 

001614 

000403 




8R 

EC10 

6547 

001616 

0427‘'7 

000200 

176660 

LC10: 

BIC 

^CRCALL,aSWR 

6548 

001624 

005057 

000610 


EC10: 

CLR 

sue 

6549 

001650 

012704 

016206 



MOV 

YMSG47,R4 

6550 

001654 

004757 

01 5252 



CALL 

TTOUT 

6551 

001640 

004737 

012624 



CALL 

GETANS 

6552 

001644 

122757 

000151 

000530 

ID10: 

CMP8 

#'Y, ANSWER 

6555 

001652 

001002 




BNE 

LD10 

6554 

001654 

005202 




INC 

R2 

6555 

001656 

000401 




BR 

ED10 

6556 

001660 

005002 



LD10: 

CLR 

R2 

6557 

001662 

004737 

001766 


ED10: 

CALL 

GTSYAD 

6558 

001666 

004737 

002422 



CALL 

CKSYAD 

6559 

001672 

052777 

000001 

176604 


BIS 

#1 ,aswR 

6560 

00-700 

012704 

016271 



MOV 

A«SG48,R4 

6561 

00)704 

004737 

013232 



CALL 

TTOUT 

6562 

001710 

004737 

012624 



CALL 

GETANS 

6565 

001714 

122737 

000131 

000530 

IE10: 

CMP0 

XT Y, ANSWER 

6564 

001722 

001013 




BNE 

IF10 

6565 

001724 

012737 

000001 

000610 


MOV 

^1,SUC 

6566 

001732 

005202 




INC 

R2 

'567 

001734 

004737 

001766 



CALL 

GTSYAD 

6568 

001740 

004757 

002422 



CALL 

CKSYAD 

6569 

001744 

052777 

000002 

176532 


BIS 

#2,aswR 

6570 

001752 

005757 

000516 


IF10: 

TST 

D8GFLG 

6571 

001756 

001402 




BEQ 

X10 

6572 

001760 

004737 

002546 



CALI 

GTSWR 

6575 

6574 

001764 

000207 



X10: 

0 

RETURN 



S£Q 0022 


SET SOFTSWITCH RE6 ADR 
SETUP MSG "HELP?" 

PRINT 

CALL GET OPERATOR ANSWER 

IF ANSWER 

IS YES, THEN 

SETUP MSG — > HELP FILE 

PRINT 

SETUP MSG "SET DISKETTE TO SINGLE DENSITY: (Y OR N)?" 
PRINT 

CALL GET OPERATOR ANSWER 
IF ANSWER 

IS YES, (SET SINGLE DENSITY), THEN 
CLEAR DENSITY BIT IN SOFT SWITCH REG 
8R TO END ’B* 

SET DENSITY BIT IN SOFT SWITCH REG 

SETUP MSG "verify DISKETTE CRC (ALL TRACKS): (Y OR N)?" 
PRINT 

CALL GET OPERATOR ANSWER 
IF ANSWER 
IS YES, THEN 

SET CRC ALL FLAG IN SOFT SWITCH REG 
0R TO END ’C 

CLEAR CRC ALL FLAG IN SOFT SWITCH REG 
SET <SUC> = 0 

SETUP MSG 'TLOPPY SYS 0 ADDRESS MODIFICATION (Y OR N)?" 
PRINT 

CALL GET OPERATOR ANSWER 

IF answer 

IS YES, THEN 

SET YES ANSWER FLAG 

8R TO END *D’ 

CLEAR YES ANSWER FLAG 
CALL GET SYSTEM BUS ADR & TEST 
CALL CHECK SYSTEM ADR - MEDIA PROTECT 
SET SYSTEM/YO AVAIL 

SETUP MSG "SECOND FLOPPY SUBSYSTEM (Y OR N)?" 

PRINT 

CALL GET OPERATOR ANSWER 

IF ANSWER 

IS YES THEN 

SET <SUC> = 1 

SET YES ANSWER FLAG 

CALL GET SYSTEM BUS ADR & TEST 

CALL CHECK SYSTEM ADR - MEDIA PROTECT 

SET SYSTEW1 AVAIL 

IF DEBUG FLAG 

SET, THEN 

GET SOFTWARE SWITCH REG 
RETURN 
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SEQ 0023 


6376 

6377 
f^378 

6379 

6380 

638? 

6383 

6384 

6385 

6386 

6387 
6588 

6389 

6390 

6391 
639? 


,S8TTL module 1.1 - GET SYSTEM BUS ADDRESS & TEST 

BEGIN ROUTINE (MODULE 1.1. GET SYSTEM BUS ADDRESS 8 TEST) 
BEGIN DO 

GET <SUC> REGISTER I VECTOR ADDRESSES 
SETUP I PRINT BUS ADDRESS 
GET NEW BUS ADDRESS 
SET UP BUS ADDRESS 
SETUP fc PRINT VECTOR ADDRESS 
GET NEW VECTOR 
SETUP VECTOR 
CLEAR BUS- TRAP-FLAG 
CALL ADDRESS TEST 
DO UNTIL BUS TRAP FLAG=0 
SET <SUC> register 8 VECTOR ADDRESSES 
ENDROUTJNE 


6593 


6394 

001766 

000240 



GTSYAD: 

NOP 



6595 

001 770 

000240 



BA11 : 

NOP 



6596 

00177? 

004737 

010126 



CALL 

SSUCOf 

CALL SET <SUC> OFFSET 

6597 

CO' 1776 

016157 

000514 

000510 


MOV 

REGS0(R1),REGS 

GET <SUC> REGISTER ADR 

6598 

CO'?C<V-. 

0161 57 

000310 

000512 


MOV 

VECT0(R1),VECT 

GET <SUC> VECTOR ADR 

6599 

0C?'01? 

00570? 



IB1 1 : 

TST 

R2 

IF YES FLAG 

6400 

o-:?oi4 

001450 




BEO 

E811 

SET, THEN 

6401 

002016 

004757 

01113? 



CALL 

PRTSYS 

CALL PRINT SYSTEM IDENT 

640? 

002022 

012704 

01407? 



MOV 

AHS64/R4 

USER MODE 

6403 

002026 

004757 

01 523? 



JSR 

PC. T TOUT 

REQUEST REGISTER ADDRESS 

6404 

00203? 

013703 

000510 



MOV 

REGS .R 3 


6405 

002036 

004737 

013346 



JSR 

PC. OC TP 

PRINT CURRENT ADDRESS 

6406 

00204? 

012705 

000510 



MOV 

#REGS.R5 

SET ADDRESS SAVE LOC 

6407 

002046 

012701 

000006 



MOV 

#6.R1 

SET SIZE OF RESPONSE 

6408 

002052 

01270? 

1 77500 



MOV 

^1 77500, R2 

SET UPPER LIMIT 

6409 

002056 

012703 

177100 



MOV 

#177100.R3 

SET lower LIMIT 

6410 

00206? 

004737 

012652 



JSR 

pc.ttr 

GO GET RESPONSE 

6411 

002066 

012704 

014127 



MOV 

WS65.R4 


641? 

002072 

004737 

013232 



JSR 

PC.TTOUT 

REQUEST VECTOR 

6413 

002076 

013703 

000512 



MOV 

VECT.R3 


6414 

002102 

004737 

013346 



JSR 

PC.OCTP 

PRINT CURRENT VECTOR 

6415 

002106 

012705 

000512 



MOV 

#VECT, R5 

SET ADDRESS SAVE LOC 

6416 

002112 

012701 

000003 



MOV 

^3,R1 

SET SIZE OF RESPONSE 

6417 

002116 

012702 

000300 



MOV 

^300. R2 

SET UPPER LIMIT 

6418 

002122 

012703 

000250 



MOV 

#250, R3 

SET LOWER LIMIT 

6419 

002126 

004737 

012652 



JSR 

PC.TTR 

GO GET RESPONSE 

64?0 

002132 

013700 

000512 



MOV 

VECT.RO 

GET VECTOR 

6421 

002136 

005037 

000570 


EB1 1 : 

CLR 

BTRPFL 

CLEAR BUS TRAP FLAG 

642? 

002142 

013737 

000510 

000472 


MOV 

REGS.RXCSAD 

SET REGISTER ADR 

6423 

002150 

004737 

002204 



CALL 

ADTST 

CALL ADDRESSING TEST 

6424 

002154 

005737 

000570 


UA1 1 : 

TST 

BTRPFL 

DO UNTIL BUS TRAP FLAG 

6425 

002160 

001303 




BNE 

8A11 

EQUALS 0 

6426 

002162 

004737 

010126 



CALL 

SSUCOF 

CALL SET <SUC> OFFSET 

6427 

002166 

013761 

000510 

000314 


WV 

REGS.REGSO(RI) 

SET <SUC> REGISTER ADR 

6428 

002174 

013761 

000512 

000310 


MOV 

VECT.VECTOaRD 

SET <SUC> VECTOR ADR 

6429 

002202 

000207 



XII: 

RETURN 


RETURN 


6430 
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ADDRESSING TEST 


6432 





.S8TTL 

ADDRESSING TEST 

6433 








6454 








6435 

C02204 

000005 



ADTST: 

RESET 


6436 

002206 

012737 

014367 

000600 


MOV 

/WSG12.TMSGAD 

6437 

002214 

012777 

012474 

1 76076 


MOV 

^TRAP.BBTRP 

6438 

002222 

012777 

000340 

176072 


MOV 

#540.aeTRP2 

6439 

002230 

013701 

000472 



MOV 

RXCSAD.R1 

6440 

002234 

00571 1 



ADI : 

TST 

(R1) 

6441 

002236 

000240 




NOP 



002240 

062701 

000002 



ADD 

#2.R1 

6443 

002244 

005711 




TST 

(R1) 

6444 

002246 

000240 




NOP 


6445 

002250 

005737 

000570 



TST 

6TRPFL 

6446 

002254 

001427 




BEQ 

AD2 

6447 

002256 

052777 

020000 

1 76220 


BIT 

#8JT13.aSWR 

6448 

002264 

001004 




BNE 

2$ 

6449 

002266 

012704 

014326 



MOV 

^SGII.RA 

6450 

002272 

004737 

013232 



JSR 

PC. T TOUT 

6451 

002276 

CKX)240 



2$: 

NOP 


6452 

002300 

004737 

012262 



JSR 

PC.BSINIT 

(1) 

002304 

032777 

001000 

176172 


BIT 

#SW09,aSWR 

(1) 

002312 

001350 




BNE 

ADI 

(1) 

002314 

004737 

012240 



JSR 

PC.ERRSET 

(2) 

002320 

OOCOOl 




.WORD 

#1 

(1) 

002322 

005777 

176156 



TST 

aswR 

(1) 

002326 

100001 




BPL 

1$ 

(1) 

002330 

000000 




HALT 


(1) 

002332 

000240 



1$: 

NOP 


6453 

002334 

005077 

175760 


AD2: 

CLR 

aSTRP 

6454 

002340 

005077 

175756 



CLR 

mTRP2 

6455 

002344 

000207 



ADTSTX: 

RTS 

PC 

6456 





« 



6457 









SEQ 0024 


;JNJTJALJZE BUS 
;SET TEST MSG HEADER 
;SET TRAP HANDLER ADR 

•GET CSR ADDRESS 
;REF CS REG 

;JF ADDRESS IS BAD, BUS TRAP WILL OCCUR 
;SET ADDRESS OF D8 
;REF D8 REG 

•IF INITIAL ADDRESS TEST 

;DID NOT PASS, THEN 

;IF INHIBIT ERROR REPORT 

;NOT SET THEN 

;SET UNIT NOT RESPONDING 

.•PRINT MSG 

; CHECK SWR FOR BUS INITIALIZE 
.•CHECK FOR LOOP ON ERROR 
;G0 TO LOOP ERROR 

.•FATAL ERR # 1 - UNIT NOT RESPONDING TO ADDRESS 
; CHECK FOR HALT ON ERROR 
;HALT IF SET 

;<UNIT NOT RESPONDING TO ADDR£SS> 

.•CLEAR BUS TRAP 
; HANDLER 
.•RETURN 


(; 

I 
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.S8TTL MODULE 1.2 - GET SOFTWARE SWITCH REGISTER 


6462 

002546 

012704 

014002 

GTSWR: 

MOV 

^SG2,R4 

REQUEST SWITCH REG MSG 

6463 

002352 

004737 

013232 


JSR 

PC,TT0UT 


'6464 

002356 

01 5703 

000324 


MOV 

SWREG,R3 

SET CURRENT SWITCH REG 

6465 

002362 

004737 

013334 


JSR 

PC,OCTPE 

PRINT CURRENT SWITCH REG 

6466 

002366 

012737 

000324 000504 


MOV 

.»SWREG,SWR 

SET SOFTWARE SWITCH REG ADR 

6467 

002374 

012705 

000324 


MOV 

#SWREG,R5 

SET ADDRESS OF SWITCH REG 

6468 

002400 

012701 

000006 


MOV 


SET SIZE OR RESPONSE 

6469 

002404 

012702 

177777 


MOV 

MI77777,R2 

SET UPPER LIMIT 

6470 

002410 

012703 

000000 


MOV 

4fO,R3 

SET LOWER LIMIT 

6471 

002414 

004737 

012652 


JSR 

PC,TTR 

GO GET RESPONSE 

6472 

002420 

000207 


X12: 

RETURN 


RETURN 


6474 

6475 

6476 

6477 
64 ^ 8 

6479 

6480 

6481 

6482 
b483 

6484 

6485 

6486 

6487 

6488 

6489 

6490 

6491 

6492 

6493 
6h94 


.S8TTL MODULE 1.3 ~ CHECK SYSTEM ADDRESS 

;8E6INR0UTINE (MODULE 1.3 - CHECK SYSTEM ADDRESS) 

; IF LOAD MEDIA PROTECT BYTE=RX02 CA3 

; : THEN 

; : IF <SUC> ADDRESS=RX02 STANDARD ADDRESS C83 

; : : THEN 

; : : CALL SYSTEM IDENTIF JCATION 

; : : SETUP & PRINT ‘REMOVE XXDP MEDIA FROM THIS SYSTEM" 

; : : SETUP & PRINT "-TYPE "CR" WHEN READY" 

; : : BE6IND0 CC3 

; : : : CALL TTY INPUT-GET TTY CHARACTER 

; : : DOUNTIL CHARACTER="CR" 

; : : CLEAR MEDIA PROTECT BYTE 

; : END IF 

; END IF 

;ENDROUT I NE 


6495 

002422 

000240 



CKSYAD: 

NOP 



6496 

002424 

122737 

000015 

000041 

IA13: 

CMP8 

xn5.a^4i 

IF RX02 

6497 

002432 

<X)1026 




8NE 

EA13 

WAS LOAD MEDIA, THEN 

6498 

002434 

022761 

177170 

000314 

1813: 

CMP 

#17717O,REGS0(R1 

);IF SYSTEM ADDRESS 

6499 

002442 

001022 




BNE 

EA13 

SET = RX02 STANDARD ADDRESS, THEN 

6500 

002444 

004737 

011132 



CALL 

PRTSYS 

CALL PRINT SYSTEM IDENT 

6501 

002450 

012704 

015140 



MOV 

WSG34,R4 

SET MS6-> ‘T^EMOVE XXDP MEDIA FROM BOOT SYSTEM* 

(1) 

002454 

004737 

013232 



CALL 

TTOUT 

PRINT MSG 

6502 

002460 

012704 

017065 



MOV 

#MSG58,R4 

SET MSG-> "-TYPE "CR" WHEN READY" 

(1) 

002464 

004737 

013232 



CALL 

TTOUT 

PRINT MSG 

6503 

002470 

004737 

013156 


BC13: 

CALL 

TTIN 

CALL TTY INPUT-GET CHARACTER 

6504 

002474 

122737 

000015 

000526 


CMP8 

/ns.Tie 

DO UNTIL 

6505 

002502 

001372 




BNE 

BC13 

CHARACTER = "CR" 

6506 

002504 

105037 

000041 



CLR8 

a«4i 

CLEAR RX02 BOOT MEDIA PROTECTION 

6507 

002510 

000240 



EA13: 

NOP 



6508 

002512 

000207 



X13: 

RETURN 


RETURN 


6509 

6510 
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651? 

6515 

6514 

6515 

6516 

6517 

6518 

6519 
65?0 

6521 

6522 
6525 

6524 

6525 

6526 

6527 

6528 

6529 

6550 

6551 

6552 
6555 

6554 

6555 


6557 

6558 

6559 

6540 

6541 

6542 
6545 

6544 

6545 

6546 

6547 

6548 

6549 

6550 

6551 

6552 
6555 

6554 

6555 
o556 

6557 

6558 

6559 

6560 

6561 

6562 

6563 


.S8TTL MODULE 2.0 - SYSTEM SCHEDULER 

.•BEGINROUTINE (MOD 2.0 SYSTEM SCHEDULER) 

; SET SYSAO & SYSAl READY BITS 
; SET SYS#0 SEL BIT 
; SET <SUC> = 0 
; SET SYSOAVL = ALl 
; CALL INITIALIZE Cm (MOD 2.1) 

; IF = SYS^I SELJ 3 CAJ 

; : THEN 

; : SET <SUL>=1 

; : SET SYS1AVL = ALL 

; : CALL INITIALIZE CHECK (MOD 2.1) 

; END IF 

; IF NO SYSTEM AVAIL CBJ 

. ; THEN 

; : SETUP SYSMSG 'NO SYSTEM AVAILABLE” 

; : ELSE 

; : 8EGIND0 CCJ 

; : ; IF SYSO SELECTED CD3 

; ; ; : THEN 

; : : : IF SYO D0NE=N0TSET CH3 

; : : : : THER 

• ; ; : : SET <SUC> = 0 

; ; : ; : IF SYSO RDY SET CE3 

; ; : : : : THEN 

; : : : : : CALL SYSTEM DRIVER (MOD 2.2) 

; : : : : : ELSE 

; : : : : : CALL WATCH DOG SYS#0 (MOD 2.4) 

; : : : : ENDIF 

; : : : ENDIF 

; : : ENDIF 

; : : IF SYS1 SELECTED CF3 

; : : : THEN 

; : : : IF SYl DSON£=NOTSET Cl 3 

; : ; : : THEf3 

; : : : : SET <SUC> - 1 

; : : : : IF SYSI RDY SET CG3 

; : : : : : THEN 

: : ; : : : CALL SYSTEM DRIVER (MOD 2.2) 

; : ; : : : ELSE 

; : ; : : : CALL WATCH DOG SYS#1 (MOD 2.5) 

; : : : : ENDIF 

; : : : ENDIF 

; : : ENDIF 

; : : CLEAR PROGRAM INITIALIZE FLAG 

; : : CALL UPDATE SYSTEM STATUS (MOD 2.3) 

; : DO UNTIL ALL SYSTEMS DONE OR NO SYSTEM AVAIL 

; . SETUP SYSTEM MSG 

; ENDIF 

; PRINT PRINT .EM MSO 
;ENDROUTINE 
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MODULE 

2.0 - SYSTEM SCHEDULER 









j 






IHI iw iMh * 

•m 

6'y66 








r^S67 

002514 

005257 

000616 


SYSCHD: 

INC 

SORDY 

6568 

002520 

005257 

000620 



INC 

S1RDY 

6569 

002524 

052777 

000001 

175752 


eis 

#1 ,aswR 

6570 

002552 

005057 

000610 



CLR 

sue 

6571 

002556 

012737 

000017 

000612 


MOV 

A17.S0AV 

65‘^2 

002544 

004737 

005002 



CALL 

INITCK 

657^ 

002550 

052777 

000002 

175726 

IA20: 

eiT 

A2.aswR 

65 7A 

002556 

001410 




BEQ 

iB20 

657S 

002560 

012737 

000001 

000610 


MOV 

#1.SUC 

6576 

002566 

012757 

000017 

000614 


MOV 

/^17.S1AV 

6577 

002574 

004757 

005002 



CALL 

INJTCK 

6578 

002600 

005757 

000612 


1820: 

TST 

SOAV 

6579 

002604 

001007 




BNE 

ID20 

6580 

002606 

005757 

000614 



TST 

SlAV 

6581 

002612 

001004 




BNE 

ID20 

6582 

002614 

012704 

016557 



MOV 

#MSG49.R4 

6585 

002620 

000465 




BR 

EB20 

6584 

002622 

000240 



BC20: 

NOP 


6585 

002624 

052777 

000001 

175652 

ID20: 

BIT 

A1 .oiSWR 

6586 

002652 

001421 




BEQ 

IF 20 

6587 

002654 

005737 

000626 


IH20: 

TST 

Sl'DN 

6588 

002640 

001016 




BNE 

IF20 

6589 

002642 

005037 

000610 



CLR 

sue 

65%' 

002646 

005737 

000616 


IE20: 

TST 

SORDY 

6591 

002652 

001407 




8E0 

LE20 

6592 

002654 

005037 

000616 



CLR 

SORDY 

6595 

002660 

005237 

007670 



INC 

WATINO 

6594 

002664 

004757 

005272 



CALL 

SYSDVR 

6595 

002670 

000402 




BR 

IF 20 

65% 

002672 

004737 

007474 


LE20: 

CALL 

WATCHO 

6597 

002676 

052777 

000002 

175600 

IF20: 

BIT 

#2,iSWR 

EF20 

6598 

002704 

001422 




BEQ 

6599 

002706 

005757 

000630 


1120: 

TST 

STDN 

6600 

002712 

001017 




BNE 

EF20 

6601 

002714 

012757 

000001 

000610 


MOV 

.sue 

6602 

002722 

005757 

000620 


1620: 

TST 

STRDY 

6605 

002726 

001407 




BEQ 

L G20 

6604 

002750 

005057 

000620 



CLR 

S1RDY 

6605 

002734 

005257 

007672 



INC 

WAT INI 

6606 

002740 

004757 

005272 



CALL 

SYSDVR 

6607 

002744 

000402 




BR 

EF20 

6608 

002746 

004737 

007572 


lG^O; 

CALL 

WATCH! 

6609 

002752 

005037 

000514 


EF20: 

CLR 

INITPG 

6610 

002756 

004737 

006570 



CALL 

SYSTAT 

6611 

002762 

005737 

000574 


DC 20: 

TST 

sysflg 

6612 

002766 

001715 




BEQ 

BC20 

6615 

002770 

015704 

0005:^2 



MOV 

SYSMSG.R4 

6614 

002774 

004737 

013252 


E820: 

CAU 

TTOUT 

6615 

005000 

000207 



X20: 

RETURN 


6616 





# 






SfQ 0027 


;SET SYSO RDY 
;SET SYS1 RDY 

;SET SVS1 SELECT IN SOFT SWITCH REG 

;SET SYS UNDER CONTROL 

;SET SYS^EW AVAIL =ALL 

;CAl.L initialize CHECK (MOD 2.1) 

;If SYS #1 

; SELECTED, THEN 

;SET SYS UNDER CONTROL=<M 

;SET SYSTEW1 AVAIL =ALL 

.•CALL INITIALIZE CHECK (MOD 2.D 

;If SYSTEM4fO 

;NDT AVAIL AND 

;IF SYSTErwn 

;NOT AVAIL, THEN 

;SET MSG^'NO SYS AVAIL TO THIS PROG” 

;BR TO END '8* 

.•BEGIN DO until 'C’ 

;IF SYS /fO 
.•SELECTED. THEN 
; JF SYSO DONE 
.-NOT SET. THEN 

.•SET SYSTEM UNDER CONTROL=SYS #0 

;I^ SYS^O READY FLAG 

;1S SET. THEN 

.CLEAR SYS #0 READY 

.SET WATCHDOG INIT #0 FLAG 

.•CALL SYS DRIVER (MOD 2.2) 

;BR TO IF ’F’ 

.•CALL WATCH DOG SYS#0 (MOD 2. A) 

;IF SYS #1 
.•SELECTED. THEN 
;IF SYS! DONE 
;NOT SET. THEN 

;SET SYSTEM UNDER CONTROL=SYS #1 
;IF SYS #1 READY FLAG 

;IS SET, THEN i 

.-CLEAR SYS #1 READY 

;SET WATCHDOG INIT FLAG 

.•CALL SYS DRIVER (MOD 2.2) 

;8R OT END ’G’ 

.•CALL WATCH DOG SYS #1 (MOD 2.S^ 

.•CLEAR f>ROGRAM INITIALIZE FLAG 

.•CALL SYSTEM STATUS (MOD 2.5) i 

;D0 UNTIL SYSTEM FLAG 

;SET (EITHER SYSTEM DONE OR NO SYS AVAR) 

.•SETUP SYSTEM MSG 
.•PRINT SYSTEM MSG 
; RE TURN 


SEQ 0028 


f : ^ ^ ^ ■ / C 3 
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6618 
i 66-><) 
I f)620 
6621 
■ 6o22 

662 ^ 
6624 
662 

1 6 <^ 2 (> 

I 60f’ 7 
! 6628 
! 6629 

' 6670 

I 6651 
I 6652 
I 6655 
I 6654 
665S 
1 66.56 

6657 

6658 

6659 

6640 

6641 
664? 

6645 
6644 
664 S 

6646 

6647 

6648 

6649 

6650 

6651 
665? 
6655 

6654 

6655 

6656 

6657 

6658 

6659 


.S8TTL WDULE 2.1 - INITIALIZE CHECK 

;8EGINR0UTINE OnOD 2.1 - INITIALJZE CHECK 
; CLEAR INITIALIZE DROP FLAG 
; SET <SUC> ADDRESS & OFFSET 
; SET <SUC> CCmAND=JNlTIALIZE 
; INITIALIZE SYSTEM AT ADDRESS 
; SETUP DELAY FOR DONE 
; CALL DELAY ROUTINE 
; SET <SUC> OFFSET 

• IF <SUC> CSR = NO DONE BIT SET fA] 

; : THEN 

• : SET INITIALIZE DROP FLAG 

; : CALL PRINT SYSTEM IDENTIFICATION 

; : SET APT ERROR # 

; : ELSE 

; : IF <SUC> CSR-ERR BIT SET [8J 

; : : THEN 

; : : SET INITIALIZE DRC»^ FLAG 

; : : CALL PRINT SYSTEM IDENTIFICATION 

; : : SETUP & PRINT ‘lERROR BIT SET AFTER INITIALIZE*' 

; : : IF <SUC> ESR = AC LOW BIT SET CCl 

; : : : THEN 

; : : : SETUP & PRINT "AC-LOW-IS FLOPPY SYSTEM POWERED UP?" 

; : : ENDIF 

; : : IF <SUC> ESR = INITIALIZE DONE NOT SET CD! 

; : : : THEN 

: : SETUP & PRINT "INITIALIZE NOT DONE - RUN DIAG UNLESS ERROR" 

; : : ENDIF 

; : ; SET APT ERROR # 

; : ENDIF 

IF <SUC> CSR N0T=D0U8LE DENSITY TYPE SYSTEM CEI 

; : : THEN 

; : : SET initialize DROP FLAG 

; : : SETUP g PRINT ^HJS SYSTEM NOT CAPABLE OF DOUBLE DEN OPS" 

; ; ENDIF 

; ENDIF 

; IF INJTIALIZE.DROP FLAG SET IM 

; : THEN 

; : CLEAR <SUC> AVAIL 

; ENDIF 

.•ENDROUTINE 




f 
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30(1046) 

20-SEP 

-78 10 

;jCZH<FA. 

pn ?0-SEP‘78 

10:48 


module 

?.1 - IF 

6661 







f 666? 







i DD6 5 

oo?oc.? 

005057 

00 5? 70 


INITCK: 

LLR 

I 666A 

005006 

004737 

010076 



FALL 

6<%S 

00501? 

01?7M 

040000 

0006?? 


MOV 

6666 

0050?0 

0]?777 

040000 

175444 


MOV 

666Z 

00W6 

01 5757 

00047? 

010250 


MOV 

> 6668 

005054 

01?757 

000040 

010??6 


MOV 

6669 

005X)4? 

01?757 

000015 

010??? 


MOV 

i 6670 

005>050 

004757 

010136 



CALL 

6671 

005054 

004757 

0101?6 



CALL 

667? 

005>060 

05?777 

000040 

175404 

IA?1: 

81 T 

667 S 

005066 

001014 




8NE 

! 6674 

005070 

005?57 

005?70 



INC 

: 66ZS 

005074 

004757 

01115? 



call 

66^6 

005100 

01?704 

016436 



MC^V 

(1 ) 

005104 

004757 

015?3? 



CALL 

! 66 Z7 

005110 

004757 

01??40 



JSR 

(?) 

005114 

00000? 




.WORD 

66 ?R 

005116 

000455 




8R 

66 Z9 

0051 ?0 

05?777 

100000 

175544 

IQ?1 : 

8IT 

66^0 

0051 ?6 

001455 




8FQ 

' 66E(1 

005^50 

005?57 

00 5? 70 



INC 

I 66SP 

0051 54 

004757 

01115? 



call 

' 668^; 

005140 

C1?704 

014776 



MOV 

n ) 

005144 

004757 

01 5?5? 



call 

6684 

005150 

05?777 

000010 

175516 

IC?1: 

8IT 

668S 

035156 

0014C>4 




8EQ 

1 6686 

0051<‘'9 

0»?704 

016550 



MOV 

n ) 

mu>4 

004757 

015?3? 



CALL 

6687 

005170 

05?777 

000004 

175276 

ID?1: 

eiT 

6688 

005176 

001004 




BNE 

6689 

005?00 

01?704 

01575? 



MOV 

(1) 

005?(K 

004757 

01 5?3? 



call 

6690 

005? 10 




ED?1: 


(1 ) 

005? 10 

004 757 

01??40 



ISR 

(?) 

Q05?14 

000003 




.WORD 

6691 

005? 16 

05?777 

004000 

175246 

IE?1: 

eiT 

669? 

005??4 

001010 




0NE 

669S 

005??6 

005?57 

003?70 



INI 

6694 

005? 5? 

004757 

01 1 1 3? 



CALL 

6695 

005? 56 

01?704 

014610 



MOV 

(1) 

005?4? 

004737 

013?3? 



call 

6696 

005?46 

01?761 

000017 

0P061? 

EA?1: 

MOV 

6697 

003?54 

005757 

003?70 


IF?1: 

1ST 

6698 

005?60 

00140? 




BEQ 

6699 

005?6? 

005061 

00061? 



CLR 

6700 

003766 

000?07 



X?1 : 

RETURN 

f 6701 





i 



003? 70 

000000 



INITDP: 

0 

1 6705 








i 
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SfO 00?9 


IMJTDP 

SSUCAD 

#RXINJT.SOC«D(R1 

^PXINlT.dRXCSAD 

RXCSAO,CSRADR 

#DA«IT,H0rW£> 

v»15.PYDK 

DELAY 

SSUCOf 

jYDKBIT.dRXCSAD 

ie?i 

INIfDP 

PRTSYS 

WSG52,H4 

fTOUT 

PC.ERRSfT 

fA?T 

AERR8lf.dRXCSA0 


;CLEAR INITIALIZE DROP FLAG 

;CALL FCT <SUC> ADDRESS 

);SET <SUC> COmANO = INITIALIZE 

.•initialize SYSTEM AT <SUC> CSR ADDRESS 

;SET ADDRESS FOR DELAY TEST 

;SET done BIT FOR DELAY TEST 

;SET DELAY MULTIPLIER 

.•DELAY FOR DONE BIT 

;CM.L SET <SUC> OFFSET 

;IF <SUC> CSR DONE BIT 

;NOT SET. THEN 

;S£T initialize DROP FLAG 

.•CALL PRINT SYSTEM I DENT 

.-SET MS6-> ’NO DONE BIT AFTER INITIALIZE” 

.•PRINT MSG 

.•fatal err if P - no DONE BIT AF Tf « INITIALIZE 

,‘BR TO MOO EXIT 

;IF <SUC> CSR ERROR BIT 


IE2T ;S€T. THEN 

INI TOP ;SET INITIALIZE DROP FLAG 

f»RTSYS .*CAl.L PRINT SYSTEM IDENT 

MnS629.R4 ;SET MSG-> 'TERROR BIT SET AFTER INITIALIZE” 

TTOUT ;PRlNr MSG 

AACLOW.dRXOBAD .IF <SUC> ESR AC LOU BIT 

ID2T .‘IS SET THEN 

AMS654.R4 .-SET MSG-> ”AC LOU ERROR-IS DISK SYSTEM POWERED l>P"” 

"TOUT ; PRINT MSG 

JYINlTDN.iRXDBAD .IF <SUC> ESR INITIALIZE DONE BIT 

fD^T ;NOT SET. THEN 

AMSGAA.RA .-SET MSG-> “INITIALIZE NOT DONE-RUN OlAG UNLESS ERR OHU 

mXJT .‘PRINT MSG 


FK.ERRSIT 

#RXZ«IT.8RXCSAD 

EA21 

INITDP 

PRTSVS 

mSGPSM 

TTOUT 

#17.S0AV(R1) 

INITDP 

XZ1 

SOAVCRn 


.•FATAL ERR # 5 - ERROR BIT SET ON INITIAL I Zf 

:lf <SUC>-D0UBLE density SYSTEM TYPE 

.-BIT NOT set. then 

;SET initialize DROP FLAG 

;CAU PRINT SYSTEM IDENT 

.•SET MSG-> “THIS SYS NOT CAPABLE OF DOUBlE DEN 
.•PRINT MSG 

;SET <SUC> SYSTEM AVAIL 

:if initialize drop flag 

* SC f THCN 

•clear <suc> system available 
.•return 


OPS* 


.•initialize drop flag 



,;i 
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6705 

6706 
670 / 

6708 

6709 

6710 

6711 

6712 
6715 

6714 

6715 

6716 

6717 
‘ 6718 

S: 6719 

: 6720 

t 6721 
( 6722 

* 6725 

6724 
o725 
i 6726 

6727 

6728 
6726 

6750 

6751 

6752 
6755 

6754 

6755 

6756 
6^57 

6758 

6759 

6740 

6741 

6742 

6743 

6744 

6745 

6746 

6747 

6748 

6749 

6750 

6751 

6752 
6755 

6754 

6755 

6756 

6757 

6758 

6759 

6760 


.S8TTL MODULE 2.2 - SYSTEM DRIVER 


8EGIAJR0UTINE (MOD 2.2 SYSTEM DRIVER) 

CLEAR WATCHDOG INITIALIZE FLAG FOR <SUC> 

CALL ERROR CHECK ROUTINE (MOD 2.2.5) 

IF THIS SYSTEM AVAILABLE NOT 0 CAl 

: THFN 

BEGINDO Cn 

: : SET <SUC> DRIVE DONE-GET NEXT COMMAND FLAG 

: : CLEAR GET NEXT tOMMAND FLAG 

: : CALL GET NEXT COMMAND (MOD 2.2.1) 

: IF COMMAND = DONE CD] 

: : : THEN 

: : : SET SUC->SYS DONE FLAG 

: : ; ELSE 

: : GET SYSTEM UNDER CONTROL OFFSET 

: : ; IF COWWiD = DRIVE #1 SELECTED CEl 

: ; : THEN 

: IF SUC-> DRIVE #1 AVAIL CF] 

: : ; : : THEN 

: : : : IF COMMAND=SIDE #1 SELECTED CG3 

: : : : : THEN 


: : : : IF SUC-> SIDE#1 AVAIL NOT SET [Hi 

; : : : : : THEN 

: : : SET GET NEXT COMMAND FLAG 

: : : ENOIF 

: : : : ENDIF 

: : : ELSE 

: : SET GET NEXT COMMAND FLAG 

: ENDIF 

: ELSE 

: : : IF SUC-> DRIVE #0 AVIAL SET Cl] 

: : : : THEN 

: : IF COMMAND = SIDE #1 SELECTED [J] 

: : : THEN 

: : : : : IF SUC-> SIDE #1 AVIAL NOT SET iKl 

: : : : THEN 

: : : : : : SET GET NEXT COMMAND FLAG 

: . : : : ENDIF 

: ; : : ENDIF 

: : : : ELSE 

: ; : : SET GET NEXT COMMAND FLAG 

: : ENDIF 

: ENDIF 

; ENDIF 

DOUNTIL GET NEXT COMMAND=0 

IF COMMAND NOT -“DONE iLl 

: THEN • 

IF COFWAND = READ SECTOR [M3 

: THEN 

: CALL TRK £ SECTOR (MOD 2.2.2) 

ENDIF 

CALL DRVR (MOD 2.2.5) 


ENDIF 

ENDROUTINE 


ENDIF 



CZRXFAO 

CZRXEA. 

RXO? FMTR PROG 
P1 1 ?0-SFP-78 

MACY11 

10:48 

30(1046) 

20-SEP 

MODULE 

-78 10:48 PAGE 67-20 

2.2 - SYSTEM DRIVER 

SEO 0031 

Ur Or 









6763 

G03c 72 

053737 

000514 

004360 

S YSDVR : 

BIS 

INITPG,INITTS 

PASS INITIALIZE FLAG TO TRACK & SECTOR MOD 

6764 

003300 

005037 

003556 



CLR 

GTCMD 

CLEAR GET COMMAND FLAG 

6765 

003304 

004737 

010126 



CALL 

SSUCOF 

CALL SET <SUC> OFFSET 

6766 

003310 

005261 

007670 



INC 

WATINO(RI) 

INCREMENT SYSTEM WATCH DOG INITIALIZE 

6767 

003314 

004737 

005164 



CALL 

FRRCHK 

CALL ERROR CHECK (MOD 2.2.5) 

6768 

003320 

004737 

010126 



CALL 

SSUCOF 

CALL SET <SUC> OFFSET 

6769 

003324 

005761 

000612 


IA22: 

1ST 

SOAV(RI) 

IF SYSTEM available 

6770 

003330 

001511 




8EQ 

X22 

NOT = 0. THEN 

6771 

00333? 

053761 

003556 

003560 

BC22: 

31 S 

GrCMD,S0DVDN(R1) 

SET <SUC> DRIVE DONE =GET COMMAND FLAG 

677? 

003340 

005037 

003556 



ClR 

GTCMD 

CLEAR GET COMMAND FLAG 

6773 

003344 

004737 

003564 



CALL 

GETCMD 

CALL GET COMMAND (MOD 2.2.1) 

6774 

003350 

005757 

000542 


ID22: 

TSF 

CMD 

IF COMMAND 

6775 

003354 

002005 




BGE 

LD22 

EQUALS DONE (=-1), THEN 

6776 

003356 

004737 

010126 



CALL 

SSUCOF 

CALL SET <SUC> OFFSET 

6777 

00336? 

005261 

000626 



INC 

SODN(RI) 

SET SYSTEM DONE FLAG 

6778 

003566 

000451 




6R 

UC22 

BR TO UNTIL 'C 

6779 

003370 

004737 

010126 


LD22: 

CALL 

SSUCOF 

CALL SET <SUC> OFFSET 

6780 

003574 

032737 

000020 

000542 

IE22: 

BIT 

WRV1 ,CMD 

IF COMMAND 

6781 

00340? 

00142? 




BEQ 

1122 

HAS DRIVE #1 SELECTED 

678? 

003404 

032761 

000012 

000612 

IF 22: 

BIT 

^12,S0AV(R1) 

IF SYSTEM DRIVE #1 AVAILABLE 

6783 

00341? 

001413 




BEQ 

LF22 

SET. THEN 

6784 

003414 

032737 

001000 

000542 

IG22: 

81 T 

4fSIDE1,CMD 

IF COMMAND 

6785 

00342? 

001433 




BEQ 

UC22 

HAS SIDE M SELECTED 

6786 

003424 

032761 

000010 

000612 

IH22: 

BIT 

#10,SOAV(R1) 

IF <SUC> SIDE #1 AVAILABLE 

6787 

00343? 

001027 




6NE 

UC22 

NOT SET, THEN 

6788 

003434 

005257 

005556 



INC 

GTCMD 

SET GET COMMAND FLAG 

6789 

003440 

000424 




BR 

UC22 

BR TO ENDIF ’E* 

6790 

00344? 

005257 

005556 


LF22: 

INC 

GTCMD 

ELSE SET GET COMMAND FLAG 

6791 

003446 

000421 




6R 

UC22 

BR TO END IF ’E* 

679? 

003450 

052761 

000005 

00061? 

1122: 

BIT 

4f5,SOAV(R1) 

IF SYSTEM DRIVE #0 AVAILABLE 

6793 

003456 

001415 




BEQ 

LI 22 

SET. THEN 

6794 

003460 

052737 

001000 

000542 

U22: 

BIT 

#S1DE1, CMD 

IF COMMAND 

6795 

003466 

001411 




BEQ 

UC22 

HAS SIDE #1 SELECTED. THEN 

6796 

003470 

052761 

000004 

000612 

1K22: 

BIT 

#4,S0AV(R1) 

IF SYSTEM SIDE #1 AVAILABLE 

6797 

003476 

001005 




6NE 

UC22 

NOT SET, THEN 

6798 

003500 

005257 

003556 



INC 

GTCMD 

SET SET COMMAND FLAG 

6799 

003504 

000402 




BR 

UC22 

PP* TO ENDIF 'E' 

6800 

003506 

005257 

005556 


LI 22: 

INC 

GTCMD 

^£T GET COMMAND FLAG 

6801 

00351? 

005757 

003556 


UC22: 

TST 

GTCMD 

DO UNTIL GET NEXT CMD FLAG 

680? 

003516 

001305 




8NE 

BC22 

EQ'JALS 0 

6803 

003520 

005757 

000542 


IL22: 

TST 

CMD 

IF COMMAND 

6804 

003524 

100413 




8MI 

X22 

N0T=D0NE(-1), THEN ^ 

6805 

003526 

013702 

000542 



MOV 

CMD,RZ 

GET COMMAND TO TEST 

6806 

00353? 

042702 

177761 



BIC 

#1 77761. R2 

CLEAR ALL BUT ACTUAL COMMAND 

6807 

003556 

022702 

000006 


IM22; 

CMP 

#RDSEC ,R2 

IF COMMAND 

6808 

00554? 

001002 




8NE 

EM22 

SET TO READ SECT(»^, THEN 

6809 

005544 

004737 

004016 



CALL 

TRKSEC 

CALL TRACK & SECTOR UPDATE (MOD 2.2.2) 

6810 

005550 

(X)4757 

004402 


EM22: 

CALL 

DRVR 

CALL UNIT DRIVER (MOD 2.2.5) 

6811 

005554 

000207 



X22: 

RETURN 


RETURN TO CALLER 

DO I C 





# 




6813 

005556 

000000 



6TCMD: 

0 


GET COMMAND FLAG 

6814 

003560 

000000 



SODVDN: 

0 


SYSTEM^O DRIVE DONE FLAG : 

6815 

00556? 

000000 



S1DVDN; 

0 


SYSTEMS DRIVE DONE FLAG 


6816 
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COMMAND 


SFQ 0032 


6824 

6825 

6826 

6827 

6828 


oot:'?' 

6830 

6831 


6833 

6834 

6835 

6836 

6837 


6839 

6840 

6841 

6842 

6843 

6844 

6845 

6846 

6847 

6848 

6849 

6850 

6851 

6852 


S8TTL MODULE 2 . 2.1 - GET COMMAND 

8EGINR0UTINE (MOD 2 . 2.1 - GET COMMAND) 

initialize system command table pointers. If INIT SET 
GET SYSTEM UNDER CONTROL <SUC> COMMAND TABLE POINTER. 

GET COMMAND AT POINTER 

IF COMMAND = DONE CA,3 

; THEN 

RESET <SUC> COMMAND POINTER 
: ELSE 

: IF COMMAND = READ SECTOR C83 

: THEN 

GET <SUC> DRIVE DONE FLAG 

IF DRIVE DONE FLAG SET EC 3 

: : : THEN “ 

CLEAR <SUC> DRIVE DONE FLAG 

IF <SUC> NEW COMMAND FLAG NOT SET EE 3 

: : : THEN 

INCREMENT <SUC> COMMAND TABLE POINTER 
; ; : : GET COMMAND AT POINTER 

IF COMMAND = DONE ED3 

: : : : THEN 

; : ; ; : RESET <SUC> COMMAND TABLE POINTER 

ENDIF 

END IF 

; : : CLEAR <SUC> NEW C(W1AND FLAG 

: ENDIF 

ELSE 

: INCREMENT <SUC> CC^AND TABLE POINTER 

: : SET <SUC> NEW COMMAND FLAG 

ENDIF 

ENDIF 

CLEAR <SUC> DRIVE DONE FLAG 
SET SELECTED DENSITY ONTO COMMAND 
ENDROUTINE 
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COMMAND 


SEQ 0033 


68S4 









6855 

003564 

005737 

000514 


GETCMD: 

1ST 

INITPG 

IF initialize 

6856 

003570 

001404 




8EQ 

IS 

SET, THEN 

6857 

003572 

005037 

003762 



CLR 

SYOTPT 

CLEAR SYS AO TABLE PTR 

6858 

003576 

005037 

003764 



CLR 

SYITPT 

CLEAR SYS A1 TABLE PTR 

6859 

003602 

004737 

010126 


1$: 

CALL 

S sue OF 

CALL SET <SUC> OFFSET 

6860 

003606 

01610? 

003762 



MOV 

SY0TPT(R1),R2 

GET <SUC> CMD table PTR 

6861 

003612 

016237 

003772 

000542 


MOV 

CMDT8L(R2),CMD 

GET COMMAND AT POINTER 

686? 

003620 

013703 

000542 



MOV 

CMD.R3 

SAVE COMMAND TEMP #3 

6863 

003624 

005703 



IA221 : 

TST 

R3 

IF COMMAND 

6864 

003626 

002003 




86E 

LA221 

EQUALS "DONE", THEN 

6865 

005630 

005061 

003762 



CLR 

SYOTPT(RI) 

RESET <SUC> CMD TABLE PTR 

6866 

003634 

000444 




BR 

EA221 

BR TO EXIT MOD 

6867 

005636 

042703 

177761 


LA221 : 

8IC 

#1 77761, R3 

CLEAR ALL BUT COMMAND 

6868 

003642 

022703 

000006 


1 6221 : 

CMP 

A6,R3 

IF COMMAND 

6869 

003646 

001032 




BNE 

16221 

EQUALS 'READ SECTOR", THEN 

6870 

003650 

016104 

003560 



MOV 

S0DVDN(R1;,R4 

GET <SUC> DRIVE DONE FLAG 

6871 

003654 

005704 



1C221 ; 

TST 

R4 

If <SUC> DRIVE DONE FLAG 

6872 

003656 

001433 




BEQ 

EA221 

SET.THtN 

6873 

003660 

005061 

003560 



CLR 

SODVDN(RI) 

CLEAR <SUC> DRIVE DONE FLAG 

6874 

003664 

005761 

003766 


IE221 : 

TST 

SOCMDF (R1) 

IF <SUC> NEW COMMAND FLAG 

6875 

003670 

0OTO16 




BNE 

EE221 

NOT SET. THEN 

6876 

005672 

062761 

000002 

003762 


ADD 

A?,SY0TPT(R1) 

INCREMENT <SUC> CMD TABLE PTR 

o877 

003700 

016102 

003762 



MDV 

SY0TPT(R1),R2 

GET <SUC> CMD TABLE PTR 

6878 

003704 

016237 

003772 

000542 


MOV 

CMDT8L(R2),CMD 

GET COMMAND AT POINTER s 

6879 

003712 

013703 

000542 



MOV 

CMD.R3 

SAVE COMMAND IN TEMPA3 

6880 

003716 

005703 



ID221 : 

TST 

R3 

IF COMMAND 

6881 

003720 

002012 




BGE 

EA221 

EQUALS 'DONE", THEN 

688? 

005722 

005061 

003762 



CLR 

SYOTPT(RI) 

RESET CMD TABLE POINTER 

6883 

003726 

005061 

003766 


EE221 : 

CLR 

SOCF^F (R1 ) 

CLEAR <SUC> NEW COMMAND FLAG 

6884 

005732 

000405 




8R 

EA221 

BR TO EXIT MOD 

6885 

003734 

062761 

000002 

003762 

L8221 : 

ADD 

#2,SY0TPT(R1) 

INCREMENT <SUC> CMD TABLE PTR 

6886 

003742 

005261 

003766 



INC 

SOCMDF (R1) 

SET <SUC> NEW COMMAND FLAG 

6887 

005746 

053737 

000506 

000542 

EA221 : 

BIS 

DENS,CMD 

SET SELECTED DENSITY 

6888 

003754 

005061 

003560 



CLR 

SODVDN(RI) 

CLEAR <SUC> DRIVE DONE FLAG 

6889 

003760 

000207 



X221 : 

RETURN 


RETURN 

6890 

jCQQi 









OoV 1 





« 




689? 

OC-376? 

000000 



SYOTPT: 

0 


SYSTEWfO COMMAND TABLE POINTER 

6893 

003764 

000000 



SY1TPT: 

0 


SYSTEW1 COMMAND TABLE POINTER 

6894 

003766 

000000 



SOCMDF : 

0 


SYS/fO NEW COMMAND FLAG ! 

6895 

003770 

000000 



S1CMDF : 

0 


SYS#1 NEW COMMAND FLAG | 


6896 

6897 

6898 

6899 

6900 

6901 
690? 

6903 

6904 

6905 

6906 

6907 

6908 

6909 


00377? 

003774 

003776 

004000 

00400? 

004004 

004006 

004010 

00401? 

004014 


000113 
000133 
000111 
000131 
000107 
0001 ?7 
001107 
001 1?7 
177777 
1 77777 


CMDT8L 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


0113 

0133 

0111 

0131 

0107 

01?7 

1107 

11?7 

-1 

-1 


DRV#/SJDE#/COMMAND /PTR 

/ / / 

0 / 0 / READ MAJNT STATUS /O 

1 / 0 / READ MAiNT STATUS /? 

0 / 0 / SET DENSITY /4 

1 / 0 / SET DENSITY /6 

0 / 0 / READ SECTOR /10 

1 / 0 / READ SECTOR 71? 

0 / 1 / READ SECTOR /U 

1 / 1 / READ SECTOR /1 6 

DONE TERMINATOR /20 

DONE TERMINATOR /?? 
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SEO 0054 


6911 
691 ? 
n91 3 

6914 

691 5 

6916 
691? 

6918 

6919 

6920 

6921 

6922 

6923 

6924 

6925 

6926 

6927 

6928 


6930 

6931 


6934 


6936 

6937 

6938 

6939 

6940 

6941 

6942 

6943 

6944 
69; 5 

6946 

6947 

6948 

6949 

6950 

6951 

6952 

6953 

6954 

6955 

6956 

6957 

6958 

6959 

6960 

6961 

6962 

6963 


S8TTL MODULE 2.2.2 - TRACK & SECTOR UPDATE 

BEGINROUTJNE (MOD 2.2.2 TRACK 8 SECTOR UPDATE) 

INITIALIZE MODULE. IF INITIALIZE PROGRAM SET 
IF SOFT SWITCH REG->CRC ALL TRACKS SET 
: THEN* 

IF <SUC> DRIVE SECTOR DONE 
: THEN 

: : IF <SUC> DRIVE TRACK DONE 

: : : THEN 

: : CLEAR <SUC> DRIVE TRACK DONE 

: : ; SET <SUC> DRIVE TRACK = 76 

: : : SET <SUC> DRIVE DONE 

: : : ELSE 

: : : DECREMENT <SUC> DRIVE TRACK 

; ; : SET TRACK=<SUC> DRIVE TRACK 

: : : IF <SUC> DRIVE TRACK=0 

: : THEN 

: SET <SUC> DRIVE TRACK DONE 

: END IF 

r : : SET SECTOR = <SUC> DRIVE SECTOR 

: : END IF 

: : CLEAR <SUC> DRIVE SECTOR D(XVE 

ELSE 

: SET <SUC> DRIVE SECTOR=INTERLEAVE + <SUC> DRIVE SECTOR 

: SET SECTOR=<SUC> DfUVE SECT OR 

: IF <SUC> DRIVE SECT0R=26 

: : THEN 

: : SET <SUC> DRIVE SECTOR DONE FLAG 

: : : SET <SUC> DRIVE SECT0R=1 

: : : ELSE 

: : : IF SECTOR >26 

: : : : THEN 

: : : : SET <SUC> DRIVE SECTOR & SECTOR =2 

: ; : ENDIF 

ENDIF 

: : SET TRACK = <SUC> DRIVE TRACK 

: ENDIF 

: ELSE 

IF <SUC> DRIVE TRACK DONE FLAG SET 
THEN 

: SET TRACK=0 

: : SET <SUC> DRIVE TRACKED 

: CLEAR <SUC> DRIVE TRACK DONE 

SET <SUC> DRIVE DONE 
: ELSE 

: : SET TRACK =76 

: : SET <SUC> DRIVE TRACK DONE FLAG 

ENDIF 

SET <SUC> DRIVE SECT0R=1 
SET SECTOR= <SUC> DRIVE SECTOR 

ENDIF 

ENDROUTINE 
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: 

6966 004016 005737 004360 TRKSEC: TST INJTTS ;IF INITIALIZE PROGRAM 



czrxeao 

RXO? FMTR PROG 

mcvn 

50(1046) 

20-SEP 

-78 10 

K 3 

:48 PAGE 68 


CZRXEA. 

Pn 20-SEP-78 

10:48 


MODULE 

2.2.2 - 

TRACK 1 SECTOR UPDATE SEO 0U56 

6968 

00402? 

001426 




6E0 

1$ 

;SET, THEN 

6%9 

0040?4 

005037 

004360 



CLR 

INJTTS 

.•CLEAR INITIALIZE FLAG 

6970 

004030 

005037 

004362 



CLR 

DVTKDN 

.•CLEAR SYS#0 DRIVE TRK DONE 

6971 

004034 

005037 

004364 



CLR 

DVTKDN+2 

.•CLEAR SYS#1 DRIVE TRK DONE 

697? 

004040 

005037 

004366 



CLR 

DVSCDN 

.•CLEAR SYS#0 DRIVE SEC DONE 

6973 

004044 

005037 

004370 



CLR 

OVSCDN+2 

.•CLEAR SVS#1 DRIVE SEC DONE 

6974 

004050 

012737 

000114 

004376 


MOV 

#76.,DVTRK 

.-SET SrS#0 DRIVE TRK = 76 

6975 

004056 

012737 

000114 

004400 


MOV 

#76. .DVTRK+2 

.-SET SrS#1 DRIVE TRK = 76 

6976 

004064 

012737 

000001 

004372 


MOV 

#1,DVSEC 

;SET SYSTEfWO DRVSEC=1 

6977 

00407? 

012737 

000001 

004374 


MOV 

#1,DVSEC*2 

.-SET SYS TEM<n DRVSEC=1 

6978 

004100 

004737 

010126 


1$: 

CALL 

SSUCOE 

.•CALL SET <SUC> OFFSET 

6979 

004104 

032777 

000200 

174372 

IA222: 

8IT 

#CRCALL,aSWR 

;IF SUR -> CRC ALL TRACKS 

6980 

00411? 

001474 




8EQ 

IG222 

;SET, THEN 

6981 

004114 

005761 

004366 


18222; 

1ST 

DVSCDN(Rl) 

;IF <SUC> DRIVE SECTOR DONE FLAG 

698? 

0041 ?0 

001433 




8EQ 

L8222 

;SET. THEN 

6983 

0041?? 

005761 

004362 


IC222: 

TST 

DVTKDN (R1) 

;IF <SUC> DRIVE TRACK DONE FLAG 

i 6984 

0041 ?6 

001410 




BEQ 

LC222 

;SET. THEN 

! 6985 

004130 

005061 

004362 



CLR 

DVTKDN(RI) 

.•CLEAR <SUC> DRIVE TRACK DONE FLAG 

i 6986 

CXX 


0001 14 

004376 


PK)V 

#76. ,DVTRK(R1 ) 

.'SET <SUC> DRIVE TRACK =76 

i 6987 

00414? 

005261 

003560 



INC 

SODVDN(RI) 

;SET <SUC> DRIVE DONE FLAG 

i 6988 

004146 

000415 




8R 

EC222 

;8R TO ENDIF *C' 

6989 

004150 

C16137 

004376 

000502 

LC222: 

mv 

DVTRK(RI), TRACK 

;SET TRACK = <SUC> DRIVE TRACK 

6990 

004156 

005361 

004376 



DEC 

DVTRK(RI) 

.•DECREMENT <SUC> DRIVE TRACK 

6991 

(X3416? 

005761 

004376 


ID222: 

TST 

DVTRK(RI) 

;IF <SUC> DRIVE TRACK 

699? 

004166 

001002 




8NE 

ED22? 

.•EQUALS ZERO. THEN 

6993 

004170 

005261 

004562 



INC 

OVTKDN(RI) 

;SET <SUC> DRIVE TRACK DONE FLAG 

6994 

004174 

012761 

000001 

004372 

ED222: 

MOV 

#1,DVS£C(R1) 

;SET <SUC> DRIVE SECTOR^I 

6995 

004?0? 

005061 

004366 


EC 222: 

CLR 

DVSCDN(RT) 

.CLEAR <SUC> DRIVE SECTOR DONE FLAG 

6996 

004?06 

000463 




BR 

X222 

;BR TO MOD EXIT 

6997 

004210 

062761 

000002 

004372 

L8222: 

ADD 

#INTLV,DVS£C(R1) 

.'SET <SUC> DRV SEC=1NTERLEAV£ OLD DRV SEC 

699« 

004?16 

016137 

004372 

000500 


MOV 

0VSEC(R1),SECTR 

.•SET SECTOR=<SUC> DRIVE SECTOR 

6999 

004224 

026127 

(X)4372 

000032 

IE222: 

CMP 

DVSEC(R1),#26. 

;IF <SUC> DRVE SECTOR 

7000 

00423? 

001006 




8NE 

If 222 

.-EQUALS 26. THEN 

7001 

004234 

005261 

004366 



INC 

DVSCDN(R1) 

.-SET <SUC> DRIVE SECTOR DONE FLAG 

700? 

004240 

012761 

000001 

004372 


MOV 

#1,DVSEC(R1) 

.-SET <SUC> DRIVE SECT0R=1 

7003 

004246 

000412 




BR 

EE222 

;8R TO END ’E’ 

7004 

004250 

023727 

000500 

000032 

If 222: 

CMP 

SECTR,#26. 

;IF SECTOR 

7005 

004256 

103406 




BLO 

EE 222 

;>26. THEN 

7006 

004260 

012737 

000002 

000500 


WV 

#2.SECTR 

;SET SECT0R=2 

7007 

004266 

012761 

000002 

004372 


MOV 

#2,DVSEC(R1) 

.-SET <SUC> DRIVE SECTOR = 2 

7008 

004274 

016137 

004376 

000502 

EE 222: 

MOV 

OVTRK(RI), TRACK 

.-SET TRACK = <SUC> DRIVE TRACK 1 

7009 

004302 

000425 




BR 

X222 

;8R TO MOD EXIT ^ 

70^0 

004304 

005761 

004362 


16222: 

TST 

OVTKDN(RI) 

;IF <SUC> DRIVE TRACK DONE FLAG 

7011 

004310 

001407 




BEQ 

LG222 

.-SET. THEN i 

701? 

004312 

005061 

004362 



CLR 

DVTKDN(RI) 

.-CLEAR <SUC> DRIVE TRACK DONE FLAG 

7013 

004316 

005037 

000502 



CLR 

TRACK 

;SET TRACK=0 

7014 

004322 

005261 

003560 



INC 

SODVDN(RI) 

;SET <SUC> DRIVE DONE FLAG 

7015 

004326 

000405 




8R 

EG222 

;8R TO ENOIF ’G' 

7016 

004330 

012737 

000114 

000502 

LG222: 

MOV 

#76., TRACK 

;SET TRACK=76 

7017 

004336 

005261 

004362 



INC 

DVTKDN(RI) 

.-SET <SUC> DRIVE TRACK DONE FLAG 

7018 

004342 

012761 

000001 

004372 

EG222: 

MOV 

#1,DVSEC(R1) 

;SET <SUC> DRIVE SECT0R=1 

7019 

004350 

016137 

004372 

000500 


MOV 

DVSEC(R1),SECTR 

.-SET SECTOR=<SUC> DRIVE SECTOR 

7020 

'71 'i' 

004356 

000207 



K222: 

return 


.-RETURN - MOD EXIT 

70€I 





# 
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7025 

7024 000002 INTLV = 2 

7025 

7026 ; 

7027 004560 000000 INITTS: 0 ; INITIALIZE TRACK & SECTOR FLAG 

7028 ; 

7029 


7030 

004362 

000000 

DVTKDN: 

.WORD 

0 

DRIVE 

TRACK DONE 

(DVTKDN) 

SYS 

^0 

7031 

004364 

000000 


.WORD 

0 

DRIVE 

TRACK DONE 

(DVTKDN) 

SYS 

^1 

7032 

004366 

000000 

DVSCDN: 

.WORD 

0 

DRIVE 

SECTOR DONE 

(DVSCDN) 

SYS 

/YO 

7033 

004370 

000000 


.WORD 

0 

DRIVE 

SECTOR DONE 

(DVSCDN) 

SYS 

/Y1 

7034 

004372 

00000 1 

DVSEC: 

.WORD 

1 

DRIVE 

SECTOR 

(DVSEC) 

SYS 

AO 

7035 

004374 

000001 


.WORD 

1 

DRIVE 

SECTOR 

(DVSEC) 

SYS 

A1 

7036 

004376 

000114 

DVTRK: 

.WORD 

76. 

DRIVE 

TRACK 

(DVTRK) 

SYS 

AO 

7037 

004400 

000114 


.WORD 

76. 

DRIVE 

TRACK 

(DVTRK) 

SYS 

A1 


7038 

7039 
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7041 

7042 

7043 

7044 

7045 

7046 

7047 

7048 

7049 

7050 

7051 

7052 
7055 

7054 

7055 

7056 

7057 

7058 

7059 
#060 

7061 

7062 


,S8TTL MODULE 2.2.3 - DRIVE DRIVER 

8EGINR0UTINE (MOD 2.2.3 - DRIVE DRIVER) 

CALL SET <SUC> ADDRESS AND OFFSET 
SAVE COMMAND IN <SUC> COMMAND 
IF COMMAND=SET DENSITY 
: THEN 

: SET <SUC> WATCHDOG MULTIPLIER LIMIT=400 

: ELSE 

: SET <SUC> WATCHDOG MULTIPLIER LIMIT=20 

END IF 

SETUP SECTOR FOR PRINT 
SETUP TRACK FOR PRINT 
SETUP SECTOR ADR FOR OUTPUT 
SETUP TRACK ADR FOR OUTPUT 
SETUP COMMAND FOR OUTPUT 
CALL SET PRIORITY HIGH 
CALL OUTPUT C(mAND 
CALL SET PRIORITY LOW 
ENDROUT I NE 


7064 

004402 

004737 

010076 


DRVR: 

CALL 

SSUCAD 

CALL SET <SUC> ADDRESS & OFFSET 

7065 

004406 

013761 

000542 

000622 


MOV 

CMD,S0CMD(R1) 

SAVE COMMAND IN <SUC> COMMAND 

7066 

004414 

0^3702 

000542 



MOV 

CMD,R2 

GET COMMAND 

7067 

004420 

042702 

177761 



eic 

#177761,R2 

CLEAR ALL BUT COMMAND 

7068 

004424 

022702 

000010 


IA223: 

CMP 

AfS£TDEN,R2 

IF COMMAND 

7069 

004430 

001004 




BNE 

LA223 

EQUALS •‘SET DENSITY** 

7070 

004432 

012761 

000400 

000556 


MOV 

M00,S0WMLT(R1) 

SET <SUC> WATCHDOG MULT LIMIT=400 
BR TO END 'A' 

7071 

004440 

000403 




8R 

EA223 

7072 

004442 

012761 

000020 

000556 

LA223: 

MOV 

/lf20,S0WMLT(R1) 

SET <SUC> WATCHDOG MULT LIMIT=20 

7073 

004450 

013761 

000500 

011310 

EA223: 

MOV 

SECTR.SOSEC(RI) 

SETUP SECTOR FOR PRINT 

7074 

004456 

013761 

000502 

011304 


MOV 

TRACK. SOTRK(RI) 

SETUP TRACK FOR PRINT 

7075 

004464 

013737 

000500 

005114 


MOV 

SECTR.SECADR 

SETUP SECTOR ADR FOR OUTPUT 

7076 

004472 

013737 

000502 

005112 


MOV 

TRACK. TRKADR 

SETUP TRACK ADR FOR OUTPUT 

7077 

004500 

013737 

000542 

000540 


MOV 

O^.WDOT 

SETUP COMMAND FOR OUTPUT 

7078 

004506 

004737 

010020 



CALL 

PRIHI 

CALL SET PRIORITY HIGH 

7079 

004512 

004737 

004524 



CALL 

OUTCMD 

CALL OUTPUT COMMAND 

7080 

004516 

004737 

010034 



CALL 

PRILO 

CALL SET PRIORITY LOW 

7081 

004522 

000207 



X223: 

RETURN 


RETURN 


7082 
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MODULE 2. 2. 3.1 

- OUTPUT DRIVE 

7084 

7AQC: 





.SBTTL MODULE 

2.2.3. 1 - OUTPI 

f Uc 0 





V 


7086 

004524 

012737 

00^0040 

010226 

OUTCMD: MOV 

#DN6IT,RDYWD 

7087 

004532 

01 3737 

000540 

005102 

MOV 

WDOT.WRDS 

7088 

004540 

013737 

000472 

005104 

MOV 

RXCSAD.ADRS 

7089 

004546 

004737 

005124 


JSR 

PC.OUTSWD 

7090 

C04552 

032737 

000010 

0005A0 

182231: BIT 

#10,WDOT 

7091 

004560 

001043 



BNE 

I C2231 

7092 

004562 

032737 

000004 

0005A0 

IH2231: SIT 

#4,WD0T 

7093 

004570 

001047 



6NE 

LH2231 

7094 

004572 

012737 

000200 

010226 

MOV 

#TR8IT,RDYWD 

7095 

004600 

013737 

005122 

005102 

MOV 

WDCT.UtfIDS 

7096 

004606 

013737 

000474 

005104 

.MOV 

RXDBAD.ADRS 

7097 

004614 

004737 

005124 


jSR 

PC.OUTSW© 

7098 

004620 

032737 

000002 

0005A0 

IK2231: eiT 

#2,Utt>0T 

7099 

004626 

001 0C4 



6NE 

LK2231 

7100 

004630 

013737 

005116 

005102 

mv 

bafill.u^ds 

7101 

004636 

000403 



SR 

EK2231 

7102 

004640 

013737 

005120 

005102 

LK2231: mv 

BA£MPT,WRDS 

7103 

004646 

012737 

000200 

010226 

EK223U mv 

#TReiT, RDYWD 

7104 

004654 

013737 

000474 

005104 

mv 

rxdbad.adrs 

7105 

004662 

004737 

005124 


JSR 

PC.OUTSWD 

7*06 

004666 

000444 



SR 

EH223I 

7107 

004670 

032737 

000004 

000540 

IC2231: BIT 

#4,WD0T 

7108 

004676 

001455 



8E0 

IE 2231 

7H)9 

004700 

032737 

000002 

000540 

ID2231: BIT 

#2,WD0T 

7110 

004706 

001035 



8NE 

LD2231 

7111 

004710 

012737 

000200 

010226 

LH2231: MOV 

#TRBIT, RDYWD 

7112 

C04716 

013737 

005114 

005102 

MOV 

SECADR.k«DS 

7113 

004724 

042737 

177700 

005102 

eic 

#1 77700,btf?DS 

7114 

004732 

013737 

000474 

005104 

MOV 

RXDBAD.ADRS 

7115 

004740 

004737 

005124 


JSR 

PC.OUTSWD 

7116 

004744 

013737 

005112 

005102 

mv 

TRKADR.UtflDS 

7117 

004752 

042737 

177600 

005102 

81 C 

#1 77600. U«DS 

7118 

004760 

012737 

000200 

010226 

mv 

#TReiT,R0YW) 

7119 

004766 

013737 

000474 

005104 

mv 

RXDBAD.ADRS 

7120 

004774 

004737 

005124 


JSR 

PC.OUTSWD 

7121 

005000 

000437 



EH2231; 6R 

END2231 

7122 

005002 

012737 

000200 

010226 

LD22j1: MOV 

#TR6IT, RDYWD 

7125 

005010 

012737 

017446 

005102 

MOV 

#XER, WRDS 

7124 

005016 

013737 

000474 

005104 

MOV 

RXDBAD.ADRS 

7125 

005024 

004737 

005124 


JSR 

PC.OUTSWD 

7126 

005030 

000423 



8R 

END2231 

7127 

005032 

032737 

000002 

000540 

IE2231: BIT 

#2,WD0T 

7128 

005040 

001404 



8EQ 

LE2231 

7129 

005042 

012737 

000001 

005106 

TE2231: MOV 

#1,ERSTAT 

7130 

005050 

000413 



6R 

END2231 

7131 

005052 

012737 

000200 

010226 

LE2231: MOV 

#TR6IT, RDYWD 

7132 

005060 

013737 

005110 

005102 

MOV 

VALWD.WRDS 

7133 

005066 

013737 

000474 

005104 

MOV 

RXDBAD.ADRS 

7134 

005074 

004737 

005124 


JSR 

PC . OUTSWD 

7135 

7136 

005100 

000207 



END2231: RTS 
# 

PC 


COMMAND 


SEQ 0039 


DRIVE COMMAND 


READV TEST WD (PASS ,0 2. 2. 3. 1.1) 

WORD FOR OUTPUT (PASS TO 2. 2. 3. 1.1) 

ADDRESS OF OUTPUT (PASS TO 2. 2. 3. 1.1) 

OUTPUT FUNCTION WD (FW) DO 2. c. 3. 1.1) 

THEN, IF FUNCTION IS 

'READ, WRITE, FILL, EMPTY" (FW BIT ^3^0) 

AND THEN IF FUNCTION IS 
"EMPTY, FILL" (FW BIT#2=0) 

THEN SET OUTPUT READY TEST WO.*D (PASS TO 2. 2. 3. 1.1) 
AND SET WORD FOR OUTPUT (PASS TO 2. 2. 3. 1.1) 

AND SET ADDRESS OF OUTPUT (PASS TO 2. 2. 3. 1.1) 

CXJTPUT BASE ADDRESS WORD DO 2. 2. 3. 1.1 

IF "FILL" (FW 8IT#1=0) 

THEN 

SET DATA FILL BUFFER ADR (PASS TO 2. 2. 3. 1.1) 

8R TO END IF ’K' 

SET DATA EMPTY BUFFER ADR (PASS TO 2. 2. 3. 1.1) 

SE1 aJTPUT READY TEST WORD (PASS TO 2. 2. 3. 1.1) 

ADDRESS OF OUTPUT (PASS TO 2. 2. 3. 1.1) 

OUTPUT WORD COUNT WORD DO 2. 2. 3. 1.1 

BRANCH TO END IF *H' 

IF FUNCTION WORD IS 

'WRITE D.D" OR ‘READ E.C" (FW BIT #2=1' 

THEN. IF function is 

'WRITE D.D", THEN (FW BIT#1=0) 

SET OUTPUT READY TEST WORD 

MOVE TRACK AND SECTOR ADDRESS 

FOWAT TO SECTOR ADDRESS 

ADDRESS OF OUTPUT 

OUTPUT SECTOR ADDRESS 

MOVE TRACK AND SECTOR ADDRESS 

FORMAT TRACK ADDRESS 

SET OUTPUT READY TEST WORD 

ADDRESS OF OUTPUT 

OUTPUT TRACK ADDRESS 

END IF H -DONE 

SET READY WD TO TR MODE 

EXT ERR. CODE TABLE ADD 

ADDRESS OF OUTPUT. RXD8 

O/P BASE ADD FOR ERR. CODE 

DONE 

IF FUNCTION IS 

■READ STATUS" (FW BIT#1=1) 

THEN-SET ERR STATUS FLAG 
DONE 

SET OUTPUT READY TEST WD 
VALIDATION WORD 
ADDRESS OF OUTPUT. RXDB 
OUTPUT VALIDATION WORD 
RETURN TO MOD 2.3 
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MODULE 2.2. 3.1 

7138 






7139 

005^02 

000000 



WRDS : 0 

7140 

005104 

000000 



ADRS: 0 

7141 

005106 

000000 



ERSTAT: 0 

7142 

005110 

0001 1 1 



VALWD : m 

7143 

005112 

000000 



TRKADR: 0 

1 7144 

005114 

000000 



SECADR: 0 

7145 

005116 

000000 



BAFJLL: 0 

1 7146 

005120 

000000 



BAEMPT : 0 

1 7147 

005122 

000000 



WDCT: 0 

7148 





.•MOD 2.2.3. 1 - 

7149 






1 71 50 





.SBTTL MODULE 

i: 7151 





f ' ' 

1 7152 






7153 

005124 

013737 

000472 

010230 

OUTSWD: MOV 

1 7154 

005132 

013737 

010226 

010226 

MOV 

] 7155 

005140 

004737 

010136 


JSR 

! 7156 

005144 

033777 

010226 

173320 

BIT 

7157 

005152 

001403 



beo 

7158 

005154 

013777 

005102 

177722 

MOV 

1 7159 

005162 

000207 



X22311: RTS 

7160 





.•MOD 2. 2.3. 1.1 


I 








f 




I 
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SEQ 0040 


END MODULE 


;MODUL E 2 . 2 , 3 .1.1 OUTPUT WORD 

.•MODULE 2. 2. 3. 1.1 OUTPUT ADDRESS 

.•MODULE 0.0 ERR STATUS READ FLAG 

.-VALIDATION WD (SET DENS-ASCII "I’*) 

.•TRACK ADDRESS 

.•SECTOR ADDRESS 

.•BASE ADDRESS FILL BUFFER 

.•BASE ADDRESS EFTTY BUFFER 

.•WORD COUNT 


2.2.3. 1.1 - OUTPUT SINGLE WORD 


RXCSAD.CSRADR 

RDYWD.RDYWD 

PC. DELAY 

RDYWD.aRXCSAD 

X22311 

WRDS. SADRS 

PC 

END MODULE 


QPT opf; 

OUTPUT READY WORD (PASS TO DELAY) 
DELAY FOR READY DO DELAY 
IF READY. 

THEN 

MOV WORD TO ADDRESS 
Rf TURN 
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716? .S8TTL MODULE 2.2.5 - ERROR CHECK 


BEGINROUTJNE (MOD 2.2.5 - ERROR CHECK) 

CLEAR PRINT HEADER FLAG Z ERROR FLAG 

CALL SET <SUC> ADDRESS 8 OFFSBJ 

GET <SUC> COMMAND (FROM LAST OPERATION) 

IF <SUC> COMMAND=READ MAINT STATUS C 

: THEN 

SET COMMAND HEADER='1R£AD MAIN! STATUS" 

: SETUP CSR 8 ESR CHECK BITS 8 DON'T CARE BITS 

: CALL CSR ERROR CHECK 8 CALL ESR ERROR CHECK 

: SET ERROR FLAG, IF ANY ERRORS 

: IF ERROR FLAG SET [ 

: THEN 

: : SET ERROR=<READ MAINT STATUS COMMAND ERROR> 

: : CALL DRIVES DROP (MOD 2. 2.5.1) 

: : CALL LOOP (MOD 2. 2.5.4) 

: : ELSE 

CALL DRIVES AVAILABLE CHECK (MOD 2.2. 5. 2) 

: ENDIF 

ELSE 

J IF <SUC> COMMAND=SET DENSITY [ 

: : THEN 

: SET COMMAND HEADER="SET DENSITY ERROR" 

: : CALL SET TEST BITS (MOD 2. 2. 5. 3) 

CALI. CSR ERROR CHECK 8 CALL ESR ERROR CHECK 
: : SET ERROR FLAG. IF ANY ERRORS 

: IF ERROR FLAG SET [ 

: : : THEN 

: : : SET ERROR=<SET DENSITY COMMAND ERROR> 

: : : CALL DRIVES DROP (MOD 2. 2. 5.1) 

: : CALL L(X»P (MOD 2.2.5. 4> 

; : ENDIF 

• ELSE 

: : IF <SUC> COMMAND=READ SECTOR C 

: THEN 

: : : SET COMMAND HEADER-* TREAD SECTOR COMMAND ERROR* * 

: : CALL SET TEST BITS (MOD 2.2. 5.3) 

: : CALL CSR ERROR CHECK 8 CALL ESR ERROR CHECK 

: : SET ERROR FLAG. IF ANY ERRORS 

: : : IF ERROR.FLAG SET [ 

: : : THEN 

IF RXDB=CRC ERROR C 

; : : : : THEN 

: : : : CALL TRACK 8 SECTOR IDENT 

: : : : ENDIF 

: : : : SET ERROR=<READ SECTOR COMMAND ERROR> 

: : : : CALL DRIVES DROP (MOD 2. 2. 5.1) 

: CALL LOOP (MOD 2.2. 5.4) 

: : : ENDIF 

: ENDIF 

ENDIF 

ENDIF 

ENDROUTINE 
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SEQ 0042 
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MODULE 

2.2.5 - 

ERROR CHECK 

7:>i 7 









1 ■ ' / :<L' 1 ■'/ 





^ Hii M iwto liMi . Will 




7218 









7219 

005164 

005057 

005602 


ERRCHK: 

CLR 

HDRELG 

CLEAR HEADER FLAG 

1 7220 

0051 20 

005057 

005526 



CLR 

ERRFLG 

CLEAR ERROR FLAGS 

7221 

005174 

004757 

010076 



CALL 

SSUCAD 

CALL SET <SUC> ADDRESS & OFFSET 

I 7222 

005200 

016102 

000622 



MOV 

S0CMD(R1),R2 

GET <SUC> LAST COMMAND 

i 

005204 

042702 

177761 



BIC 

Ml 77761 .R2 

CLEAR ALL BUT COMMAND 

722A 

005210 

022702 

00001 2 


IA225: 

CMP 

ARDMNST,R2 

IF COMMAND 

i 7225 

005214 

001047 




8ME 

IC225 

EQUALS ’READ MAINT STATUS”. THEN 

7226 

005216 

012757 

017346 

000600 


MOV 

#MSGCD5,TMSGAD 

SETUP COMMAND HEADER 

7227 

005224 

012757 

000040 

000546 


MOV 

5^D/^1T,CSRCMP 

SET DONE BIT CK-CSR COMPARE 

7228 

005252 

052757 

004000 

000546 


BIS 

#RX281T,CSRCMP 

SET DOUBLE DENSITY BIT CK-CSR COMPARE 
SET CSR DON’T CARE BITS 

722*9 

005240 

012757 

1 75537 

000544 


MOV 

#173537,CSRMSK 

7250 

005246 

005057 

000552 



CLR 

E SR CMP 

SET DRV RDY-ESR COMPARE 

' 7251 

005252 

012757 

171662 

000550 


MOV 

#171662,ESRMSK 

SET-ESR DON’T CARE BITS 

7252 

005260 

004757 

010404 



CALL 

CSRCHK 

CALL CSR ERROR CHECK 

7255 

005264 

010057 

005526 



MOV 

RO, ERRFLG 

SET ERROR FLAG. IF ANY ERRORS 

725A 

005270 

004757 

010624 



CALL 

ESRCHK 

CALL ESR ERROR CHECK 

7255 

005274 

050057 

005526 



BIS 

RO. ERRFLG 

SET ERROR FLAG. IF ANY ERRORS 

7256 

005500 

005757 

005526 


18225: 

TST 

ERRFLG 

IF ERROR flag 

7257 

005504 

001410 




8EQ 

L8225 

SET. THEN 

7258 

005506 

004757 

012240 



JSR 

PC.ERRSET 


(2) 

005512 

000004 




.WORD 

#4 

FATAL ERR 4 - READ MAINT STATUS COMMAND ERROR 

7259 

005514 

004757 

005550 



CALL 

DRVDRP 

CALL DRIVES DROP (MOD 2.2. 5.1) 

7240 

005520 

004757 

006406 



CALL 

LOOP 

CALL LOOPING MODULE (MOD 2.2. 5.4) 

7241 

005524 

000476 




8R 

EA225 

8R TO MOD EXIT 

7242 

005526 

004757 

006040 


L8225: 

CALL 

ORVAVL 

CALL DRIVES AVAIL CHK (MOD 2. 2. 5. 2) 

7245 

005552 

000475 




8R 

EA225 

8R TO MOD EXIT 

7244 

005554 

022702 

000010 


I C225 : 

CMP 

#SETDEN.R2 

IF COMMAND 

7245 

005540 

-001050 




BNE 

IF225 

EQUALS ''SET DENSITY”. THEN 

7246 

005542 

012757 

017511 

000600 


MOV 

#MSGCD4,TMSGAD 

SETUP COMMAND HEADER 

7247 

005550 

004757 

006266 



CALL 

STST8T 

CALL SET TEST BITS (MOD 2. 2. 5. 3) 

7248 

005554 

004757 

010404 



CALL 

CSRCHK 

CALL CSR ERROR CHECK 

7249 

005560 

010057 

005526 



MOV 

RO, ERRFLG 

SET ERROR FLAG. IF ANY ERRORS 

7250 

005564 

004757 

010624 



CALL 

ESRCHK 

CALL ESR ERROR CHECK 

7251 

005570 

050057 

005526 



BIS 

RO, ERRFLG 

SET ERROR FLAG. IF ANY ERRORS 

7252 

005574 

005757 

005526 


ID225; 

TST 

ERRFLG 

IF ERROR FLAG 

7255 

005400 

001450 




BEQ 

EA225 

SET. THEN 

7254 

005402 

004757 

012240 



JSR 

PC.ERRSET 


(2) 

005406 

000005 




.WORD 

#5 

FATAL ERR M 5 - SET DENSITY COMMAND ERROR 

7255 

005410 

004757 

005550 



CALL 

DRVDRP 

CALL DRIVES DROP (MOD 2.2. 5.1) 

7256 

005414 

004757 

006406 



CALL 

LOOP 

CALL LOOPING MODULE (MOD 2. 2. 5. 4) 

7257 

005420 

000440 




8R 

EA225 


7258 

005422 

022702 

000006 


If 225: 

CMP 

#RDSEC,R2 

IF COMMAND i 

7259 

005426 

001055 




BNE 

EA225 

EQUALS 'READ SECTOR”. THEN | 

7260 

005450 

012757 

017254 

000600 


MOV 

AMSGCD3.TMSGAD 

SET COMMAND HEADER 1 

7261 

005456 

004757 

006266 



CALL 

STST8T 

CALL SET TEST BITS (MOD 2.2. 5. 3) ! 

7262 

005442 

004757 

010404 



CALL 

CSRCHK 

CALL CSR ERROR CHECK 

7265 

005446 

010057 

005526 



MOV 

RO. ERRFLG 

■SET ERROR FLAG. IF ANY ERRORS 1 

7264 

005452 

004^57 

010624 



CALL 

ESRCHK 

■CALL ESR ERROR CHECK 

7265 

005456 

050037 

005526 



BIS 

RO. ERRFLG 

■SET ERROR FLAG. IF ANY ERRORS 

7266 

005462 

005757 

005526 


IE 225: 

TST 

ERRFLG 

:IF ERROR FLAG 

7267 

005466 

001415 




BEQ 

EA225 

■SET. THEN 

7268 

005470 

052777 

000001 

172776 

IG225: 

BIT 

ACRCERR.iRXDBAD 

■IF CRC ERROR 

7269 

005476 

001402 




BEQ 

EG225 

■SET. THEN 

7270 

005500 

004737 

011232 



CALL 

PRTKSC 

■CALL PRINT TRACK/SECTOR 


CZRXEAO 

RX02 FWTR PROG 

f-lACYll 50( 

10A6) 20-SEP-78 10. 

E 

A 8 PAGE 68- 

4 

7 
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o 

ERROR 5 

SET DENSITY 

COMMAND ER^ ^ 


SEQ 00A5 

7271 

00550A 



E6225: 





(1) 

005 50A 

00A757 

0122A0 

JSR 

PC.ERRSET 




(2) 

005510 

000006 


.WORD 

#6 

.•FATAL ERR ^ 6 - READ 

SECTOR 

COMMAND ERROR 

7272 

005512 

00A737 

005550 

CALL 

DRVDRP 

.•CALL DRIVES DROP 

(MOD 

2.2. 5.1) 

7273 

005516 

00A757 

006A06 

CALL 

LOOP 

.•CALL LOOPING MODULE 

(MOD 

2.2. 5. A) 

727A 

005522 

OOO2A0 


EA225 ; NOP 


0 



7275 

1 7~>7A 

00552A 

000207 


X225: RETURN 


; RE TURN 




7277 005526 000000 ERRfLG: 0 ; ERROR FLAG 

7278 





F 4 
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7280 
: 7281 

7282 

7283 

7284 

7285 

^ 7286 

7287 

7288 

7289 
I 7290 

7291 

7292 

7293 

7294 

7295 

7296 
. 7297 

; ^298 

7299 
i 7300 
7301 
! 7302 

7303 

7304 

7305 

7306 

7307 

7308 

7309 
7510 

7311 

7312 
731 5 

7314 

7315 

7316 

7317 

7318 

7319 
7520 

7321 

7322 

7323 

7324 

7325 

7326 

7327 

7328 
7529 

7330 

7331 


.S8TTL MODULE 2.2.5. 1 - DRIVE DROP 
BEGIIVROUTINE (MOD 2.2. 5.1 - DRIVE DROP) 

clear drop drive control word 

CLEAR print side FLAG 
CALL SET <SOC> OFFSET 

IF <SUC> CGMMAND=DRIVE SELECTED CA3 

: THEN 

: IF <SUC> C0MMAND=SIDE #1 SELECTED CBJ 

: THEN 

: : IF <SUC> SYS AVAIL=SIOE CCJ 

: : THEN 

SETUP PRINT SIDE^^I. DRIV£=#1 
: : SET DROP 0RIVE=SIDE 1 /DRIVE 1 

: : SET print SIDE FLAG 

: : ENDIF 

: : ELSE 

: SET DRCP DRIVERS IDE 0/DRIVE 1 

: ; IF <SUC> ^YS AVAIL=SIDE #1 CDJ 

: : : THEN 

: : : SETUP PRINT SIDE=#0. DRIVE=<n 

: SET PRINT SIDE FLAG 

: : : ELSE 

: : : SETUP PRINT DRiVE=#1 

: : ENDIF 

ENDIF 
: ELSE 

IF <SUC> COMMAND-SIDE #1 SELECTED LED 

: : THEN 

IF <SUC> SYS AVAIL=SID£ /VI CF3 

: : : THEN 

SETUP PRINT SIDE=#1, DRIVE 
: : SET DROP 0RIVE=S IDE 1 /DRIVE 0 

: : ENDIF 

: : ELSE 

: : SET DROP DRIVE=SIDE 0/ DRIVE 0 

IF <SUC>‘’SYS AVAIL=SIDE #1 CG3 

: THEN 

: : SETUP PRINT SIDE=#0. DRIVE=#0 

: : : SET PRINT SIDE FLAG 

: ELSE 

: SETUP PRINT DRIVE=#0 

: ENDIF 

: ENDIF 

ENDIF 

IF DROP DRIVE NOT=0 CH] 

: THEN* 

CALI PRINT SYSTEM IDENTIC J CATION 
CALL PRINT DRIVE IDENTIFICATION 
: DROP DRIVES SET IN DROP DRIVE FROM <SUC> AVAIL 

ENDIF 

ENDROUTINE 
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RX02 FMTR PROG 

MACY11 
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CZRXEA. 

P11 20-SEP-78 

10:48 


MODULE 2.2. 5.1 

- DRIVE DROP 


bfc. u 0045 




























7355 

005530 

005037 

006036 


DRVDRP: CLR 

OROPDV 

; CLEAR DROP DRIVES CONTROL WORD 


7336 

005534 

005037 

011250 


CLR 

PTS I Df 

; CLEAR PRINT SIDE FLAG 


7337 

005540 

004737 

010126 


CALL 

SSUCOf 

;CALL SET <SUC> OFFSET 


7338 

005544 

032761 

000020 

000622 

IA2251: 81 T 

#DRV1 ,S0CMD(R1) 

;IF <SUC> COMMAND=DRIVE #1 


7339 

005552 

001447 



8EQ 

IE 2251 

.•SELECTED, THEN 


73^0 

005554 

032761 

001000 

000622 

182251: BIT 

#SIDE1 ,S0CMD(R1) 

;I^ <SUC> C0MMAND=SIDE #1 


7341 

005562 

001420 



BEQ 

L82251 

;SELECTED, THEN 


7542 

005564 

032761 

000010 

000612 

1C2251: BIT 

#10,S0AV(R1) 

;F <SUC> SYS AVAIL=SIDE A1 


7343 

005572 

001502 



BEQ 

IH2251 

;S£1', THEN 


7344 

005574 

012737 

000001 

011226 

MOV 

#1,SIDE 

; SETUP PRINT SID£=A1 


7345 

005602 

012737 

000001 

011224 

MOV 

#1 , DRIVE 

; SETUP PRINT DRIVE =#1 


7546 

005610 

012757 

000010 

006036 

MOV 

#10,DROPDV 

;SET DROP DRIVE=SIDE 1/DRIVE 1 

i 

7347 

005616 

005237 

011230 


INC 

PTSIDF 

;S£T PRINT SIDE FLAG 


7348 

005622 

000466 



BR 

IH2251 

;8R TO IF 'H* 


7349 

005624 

012737 

000002 

006036 

L82251: MOV 

#2,DR0PDV 

;SET DROP DRIVE=SID£ 0/DRIVE 1 


7350 

005632 

032761 

000010 

000612 

ID2251: BIT 

#10,S0AV(R1) 

;IF <SUC> SYS AVAIL=SIDE #1 


7351 

005640 

001410 



BEQ 

LD2251 

;S£T, THEN 


7352 

005642 

005037 

011226 


ClR 

SIDE 

.•SETUP PRINT S1DE=^0 


7353 

005646 

012737 

000001 

011224 

MOV 

^1 , DRIVE 

; SETUP PRINT DRIVE =#1 


7354 

005654 

005237 

011230 


INC 

PTSIDF 

;SET PRINT SIDE FLAG 


I 7355 

005660 

000447 



BR 

IH2251 

;8R TO IF 'H' 


7356 

005662 

012737 

000001 

011224 

LD2251: MOV 

#1 , DRIVE 

;S£TIP PRINT DRIVE =#1 


; 7357 

005670 

000443 



BR 

1H2251 

;BR TO IF ’H* 


7358 

005672 

032761 

001000 

000622 

IE2251; BIT 

#S IDE 1,S0CMD(R1) 

;IF <SUC> COMMAND^SIDE #1 


7359 

005700 

001417 



BEQ 

LE2251 

.•SELECTED, THEN 


7360 

005702 

032761 

000001 

000612 

IF2251: BIT 

#1 ,S0AV(R1) 

;I^ <SUC> AVAIL^^SIDE #1/DRIVE »0 


7361 

005710 

001433 



BEQ 

IH2251 

;SET. THEN 


7362 

005712 

012737 

000001 

011226 

MOV 

#1,SIDE 

; SETUP PRINT SIDE-#! 


7363 

005720 

005037 

011224 


CLR 

DRIVE 

.•SETUP PRINT DRIVE -AO 


7364 

005724 

012737 

000004 

006036 

MOV 

#4,DR0PDV 

;S£T DROP DRIVE^SIDE 1/DRIVE 0 


7365 

005732 

005237 

011230 


INC 

PTSIDF 

;SFT PRINT SIDE FLAG 


7366 

005736 

000420 



BR 

IH2251 

;8R TO IF ’H’ 


7367 

005740 

012737 

000001 

006036 

LE2251: MOV 

#1 ,DROPDV 

.-SET DROP DRIVERS IDE 0/DRIVE 0 


7368 

005746 

052761 

000004 

000612 

IG2251: BIT 

#4,S0AV(R1) 

;IP <SUC> SYS AVAIL=SIDE #1 /DRIVE AO 


7369 

005754 

001407 



BEQ 

L 62251 

.•SET, then 


7370 

005756 

005037 

011226 


CLR 

SIDE 

.•SETUP PRINT SIDE -AO 


7371 

005762 

005037 

011224 


CLR 

DRIVE 

.•SETUP PRINT DRIVE=AO 


7572 

005766 

005237 

011230 


INC 

PTSIDF 

;S£T PRINT SIDE FLAG 


7373 

005772 

000402 



BR 

IH2251 

;6R TO IF 'H* 


7374 

005774 

005037 

011224 


LG2251: CLR 

DRIVE 

.•SETUP PRINT DRIVE=AO 


7375 

006000 

005737 

006036 


IH2251: TST 

DROPDV 

;IF DROP DRIVE CONTROL WORD 


7376 

006004 

001413 



BEQ 

X2251 

.-SET. THEN 


7377 

006006 

004737 

011132 


CALL 

PRTSYS 

.•CALL PRINT SYSTEM IDENT 


7378 

006012 

004737 

011154 


CALL 

PRTDRV 

.-CALL PRINT DRIVE IDENT 


7379 

006016 

043761 

006036 

000612 

BIC 

DROPDV, SOAV(RI) 

.•DROP DRIVES SET IN <SUC> AVAIL 


7380 

006024 

012704 

015121 


MOV 

#MSG33,R4 

.-SET MS6-> 'DROPPED” 


n) 

006030 

004737 

013232 


CALL 

TTOUT 

.•PRINT MSG 


7381 

006034 

000207 



X2251: RETURN 


.•RETURN 


7382 





# 




7383 

006036 

000000 



DROPDy: 0 


.•DROP DRIVE CONTROL WORD 







- 




7.5o4 





# 






SEQ 0046 


H A 
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7386 

7387 

7388 

7389 

7390 

7391 

7392 

7393 

7394 

7395 
75% 
7397 
7598 

7399 

7400 

7401 

7402 
7405 

7404 

7405 

7406 

7407 

7408 

7409 

7410 

7411 

7412 

7413 

7414 

7415 

7416 

7417 

7418 

7419 

7420 

7421 

7422 

7423 

7424 

7425 

7426 

7427 

7428 


.S8TTL MODULE 2. 2. 5.2 - DRIVES AVAILABLE CHECK 

BEGlAiROUTlNE (MOD 2.2. 5.2 - DRIVES AVAILABLE CHECK) 
CLEAR DROP AVAILABLE DRIVES CONTROL 
IF <SUC> COMMAND=DRIVE #1 SELECTED 
: THEN 

: IF RXES=DRIVE NOT RDY 

: : THEN 

: : IF <SUC> AVAIL=DRIVE #1 SET 

: THEN 

: : SET DRIVE=1 

: : : SET DROP AVAIL DRIVE=#1 

: ENDIF 

: ENDIF 

IF RXES=SIDE NOT RDY 
: : ^HEN 

DROP <SUC> AVAIL-SIDE #1/DRIVE #1 

ENDIF 
: ELSE 

IF RXES=DRIVE NOT RDY 
: THEN 

: : IF <SUC> AVAIL=DRIVE #0 SET 

: THEN 

: : SET DRIVE=0 

: : : SET DROP AVAIL DRIVE=#0 

ENDIF 

ENDIF 

IF RXES=SIDE NOT RDY 
: : THEN 

DROP <SUC> AVAIL -SIDE #1 /DRIVE #1 

ENDIF 

ENDIF 

IF DROP AVAIL DRIVE NOT=0 
: then" 

CALL PRINT SYSTEM IDENT 

SETUP PRINT *t)RIVE NOT READY-IS DISK IN DRIVE &' 
CALL PRINT SYSTEM IDENT 
: CLEAR SIDE PRINT FLAG 

: CALL PRINT DRIVE IDENT 

DROP THE DRIVE SET IN DROP AVAIL DRIVE IN <SUC> 
SETUP £ PRINT ’*DROPPED*' 

ENDIF 

ENDROUTINE 


CA3 

[BJ 

CO 

CDJ 

EE] 

EF] 

EG] 
lH3 

» 

AVAIL 



I 4 
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7450 ; 

7451 


7452 

006040 

005057 

006264 

ORVAVL: CLR 

DROPAV 

.•CLEAR DROP AVAIL DRIVE 

7455 

006044 

<004757 

010076 


CALL 

S sue AD 

.•CALL SET <SUC> ADDRESS 8 OFFSET 

7454 

006050 

032761 

000020 

000622 IA2252: BIT 

#DRV1 ,S0CMD(R1) 

;IF <SUC> COMMAND 

7455 

006056 

001426 



BEQ 

IE2252 

HAS DRIVE SELECTED. THEN 

7456 

006060 

052777 

000200 

172406 182252: BIT 

#DRVRDY.aRXD8AD 

IF RXES 

7457 

006066 

001012 



8NE 

ID2252 

DRIVE RDY NOT SET. THEN 

7458 

0CV5070 

032761 

000002 

000612 IC2252: BIT 

#?.S0AV(R1) 

IF <SUC> DRIVE 

7459 

0'06076 

001406 



BEQ 

iD2252 

AVAILABLE. THEN 

7440 

006100 

012757 

000001 

011224 

MOV 

#1 .DRIVE 

SET DR1VE=1 FCW PRINT 

7441 

0«06106 

012737 

000002 

006264 

MOV 

#2, DROPAV 

SET DROP AVAIL SIDE ttO. DRIVE #1 

7442 

006114 

032777 

000002 

172352 ID2252: BIT 

^SIDRDY.aRXDBAD 

IF RXES 

7445 

006122 

001030 



8NE 

IH2252 

SIDE RDY NOT SET. THEN 

7444 

006124 

042761 

000010 

000612 

BIC 

#10,S0AV(R1) 

DROP SIDE DRIVE 

7445 

006132 

000424 



8R 

IH2252 

8R TO IF 'H' 

7446 

006134 

032777 

000200 

172332 IE 2252: SIT 

#DRVRDY.aRXDBAD 

IF RXES 

7447 

006142 

001011 



8NE 

IG2252 

DRIVE RDY NOT SET. THEN 

7448 

006144 

052761 

000001 

000612 IF 2252: SIT 

#1,S0AV(R1) 

IF <SUC> DRIVE #0 

7449 

006152 

001405 



8EQ 

IG2252 

available. THEN 

7450 

006154 

005037 

011224 


CLR 

DRIVE 

SET DRIVE =0 

7451 

006160 

012737 

000001 

006264 

MOV 

A1 .DROPAV 

SET DROP AVAIL SIDE ^0. DRIVE ffO 

7452 

006166 

032777 

000002 

172300 IG2252: BN 

#SIDRDY.aRXD8AD 

IF RXES 

7455 

006174 

001003 



BNE 

IH2252 

SIDE RDY NOT SET. THEN 

7454 

006176 

042761 

000004 

000612 

SIC 

#4.S0AV(R1) 

DROP SIDE /n, DRIVE #0 

7455 

006204 

005737 

006264 

IH2252: TST 

DROPAV 

IF DROP AVAIL SIDE/DRIVE 

7456 

006210 

001423 



BEQ 

EH2252 

SET, THEN 

7457 

006212 

004737 

011132 


CALL 

PR T SYS 

CALL PRINT SYSTEM IDENT 

7458 

006216 

012704 

016613 


MOV 

#MS655,R4 

SET MSG-> 'DRIVE NOT RDY-IS DISK IN DRIVE & DOOR CLOSED 

(1) 

006222 

004737 

013232 


CALL 

TTCXJT 

PRINT MSG 

7459 

006226 

004737 

011132 


CALL 

PRTSYS 

CALL PRINT SYSTEM IDENT 

7460 

006232 

005037 

011230 


CLR 

PTSIDF 

CLEAR PRINT SIDE FLAG 

7461 

006236 

004737 

011154 


CALL 

PRTDRV 

CALL PRINT DRIVE/SIDE IDENT 

746? 

006242 

043761 

006264 

000612 

BIC 

DROPAV.SOAV(RI) 

DROP DRIVE SET -> IN <SUC> AVAIL 

7463 

006250 

012704 

015121 


MOV 

#MSG33.R4 

SET MSG-> ’DROPPED” 

(1) 

006254 

004737 

013232 


CALL 

TTOUT 

PRINT MSG 

7464 

006260 

000240 


EH2252: NOP 



7465 

006262 

000207 


X2252: RETURN 

RETURN 

7466 











1 




7467 

006264 

000000 


DROPAV: 0 


DROP AVAIL DRIVES/SIDES CONTROL 

7468 















7469 








7470 





SYSTEM 

AVAILABLE WORD 


7471 








7472 








74 75 





! 10.' 

4 1 211; <— SIDE & DRIVE BIT AVAILABLE 

7474 








7475 





! Ill 

101 Oil 001 <— SIDE & DRIVE CODE 

7476 





4-- — 4^ 



74 77 





! SDI 

SDI SDI SDI 


7478 






A A 


7479 






1 1... DRIVE 


7480 






1 SIDE 




J A 
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7482 

7483 

7484 

7485 

7486 

7487 

7488 

7489 

7490 

7491 

7492 

7493 

7494 

7495 

7496 
7l97 

7498 

7499 


7501 

7502 

7503 

7504 

7505 

7506 

7507 

7508 

7509 

7510 

7511 

7512 
7515 

7514 

7515 

7516 

7517 

7518 

7519 

7520 

7521 

7522 
7525 


006266 

006274 

006502 

006506 

006512 

006516 

006524 

006550 

006554 

006540 

006346 

006350 

006356 

006564 

006366 

006374 

006402 

006404 


Cl 2737 
052757 
016103 
042705 
050537 
012757 
016103 
042705 
010357 
052761 
001403 
052737 
032761 
001403 
052737 
012737 
000240 
000207 


.S8TTL MODULE 2.2. 5. 3 - SET TEST BITS IN CSR & ESR 

8EGINR0UTINE (MOD 2.2. 5.5 - SET TEST BITS IN CSR £ ESR) 
SETUP CSR COMPARE^DONE BIT 
SETUP CSR“COf^ARE=DOUBLE DENSITY BIT 
GET <SUC>“LAST command 
SAVE ALL READ/URITE BITS 
SETUP CSR C0MPARE=SET ALL READ/WRITE BITS 
SETUP CSR“MASK=DON’T CARE BITS 
CLEAR ALL'BUT SIDE BIT FROM <SUC> LAST COMMAND 
SETLP ESR COMPARE=SIDE BIT AS SET FROM <SUC> LAST CMO 
IF <SUC> LAST C0MM4ND=DRIVEA1 SELECTED 
; THEN 

SETUP ESR C0MAPRE=DRIVEA1 

END IF 

IF <SUC> LAST C0MMAND=D0U6LE DENSITY BIT SET 
: THEN 

SETUP ESR COMPARE =DRIVE DOUBLE DENSITY BIT SET 

ENDIF 

SETUP ESR MASK^DON’T CARE BITS 
ENDROUTINE “ 


000040 
004000 
000622 
176257 
000546 
07001 7 
000622 
176777 
000552 
000020 

000400 

000400 

000040 

170000 


000546 

000546 


000544 


STST6T: 


000622 IA2255: 


000552 

000622 

000552 

000550 


18225: 


E82253; 

X2253: 


MOV #DNBIT, CSRCMP 

8IS #RX28IT,CSRCMP 

MOV S0Cf«)(R1),R3 

eic #1 76257, R3 

BIS R5,CSRCMP 

MOV #70017,CSRMSK 

MOV S0CMD(R1),R3 

eiC #"CSJDE1,R5 

W R3,ESRCMP 

BIT /fDRVl,S0CMD(R1) 

6EQ 162255 

BIS /YDRI VE1,ESRCMP 

BIT #D£NBIT,S0CMD(R1 

BEQ E82253 

BIS WRVDEN,ESRCMP 

MOV #1 70000, ESRMSK 

NOP 
RETURN 


;SET DONE BIT CK-CSR MODULE 

;S£T DOUBLE DENSITY BIT CK-CSR COMPARE 

;SET <SUC> COMMAND 

.•SAVE ALL R/W BITS 

;SET R/W BITS FOR-CSR COr<PARE 

; SET- CSR DON'T CARE BIT MASK 

;GET <SUC> COMMAND 

.•CLEAR ALL BIT SIDE BIT 

.-SET SIDE BIT (IF SELECTED)-ESR COMAPRE 

;IF DRIVE #1 

.•SELECTED IN COMMAND, THEN 

.-SET DRIVE #1 BIT-ESR COMPARE 

);IF DOUBLE DENSITY 

.•SELECTED IN COMMAND, THEN 

.-SET DRIVE DENSITY BIT-ESR COMPARE 

.-SET ESR DON'T CARE BIT MASK 

•RETURN 



CZRXEAO 

RX02 fmTR prog 

MACY11 

50(1046) 

20-SEP 

-78 10 

CZRXEAj 

P11 20-SEP-78 

10:48 


MODULE 

2.2. 5.4 

7525 





.S 8 TTL 

MODULE 

7526 







7527 







7528 

CO 0 PO 6 

000240 



LOOP; 

NCP 

7529 

006410 

005737 

000516 



TST 

7550 

006414 

001464 




6 E 0 

7531 

006416 

052777 

101000 

1 72060 


SIT 

7552 

006424 

001460 




SEQ 

7533 

006426 

005037 

000602 



ClR 

7534 

006452 

012737 

017417 

000600 


MOV 

7535 

006440 

016137 

000622 

000542 


WV 

7536 

006446 

01 5737 

000542 

000540 

L00P1 : 

MOV 

7537 

006454 

004737 

010404 



CALL 

7558 

006460 

005700 




TST 

7539 

006462 

001416 




BEQ 

7540 

006464 

004737 

012262 



JSR 

(1) 

006470 

052777 

001000 

172006 


BIT 

(1) 

006476 

001363 




BNE 

(1) 

006500 

004737 

012240 



JSR 

(2) 

006504 

000007 




.WORD 

(1 ) 

006506 

005777 

171772 



TST 

(1) 

006512 

100001 




8PL 

(1 ) 

006514 

000000 




HALT 

(1 ) 

006516 

000240 



1$: 

NOP 

7541 

006520 

004 737 

010624 


L00P2: 

CALL 

7542 

006524 

005700 




TST 

7543 

006526 

0C1416 




SEQ 

7544 

006530 

004737 

012262 



JSR 

(1) 

006534 

032777 

001000 

171742 


BIT 

(1) 

006542 

001341 




BNE 

<1) 

006544 

004737 

012240 



JSR 

<2) 

006550 

000010 




.WORD 

(1) 

006552 

005777 

171726 



TST 

(1) 

006556 

100001 




8PL 

(1) 

006560 

000000 




HALT 

(1) 

006562 

000240 



1$; 

NOP 

7545 

006564 

000240 



L00P3: 

NOP 

7546 

006566 

000207 



X2254: 

RETURN 

7547 





# 
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2.2. 5. 4 - LOOPING MODULE 


SEQ 0049 


DeGfLG 

X2254 

#101000,aSWR 

X2254 

HDftFLG 

#MSGLP,TMSGAD 

S0CW(ft1),CMD 

CMD/WDOT 

CSRCHK 

RO 

L00P2 

PC,8SINIT 

#SW09,aSWR 

L00P1 

PC.ERRSET 

#7 

asi*^ 

1$ 


ESRCHK 

RO 

L00P3 

PC,8SINIT 

#SW09,aSWR 

LOOP1 

PC,ERRSET 

#10 

asuR 

1 $ 


IF 0E8UG FLAG 
SET, THEN 

IP HALT ON ERR OR LOOP ON FRR 

SET, THEN 

CLEAR HEADER FLAG 

SET MODULE MESSAGE 

GET <SUC> COMMAND 

PASS COMMAND TO OUTPUT MODULE 

CALL CSR CHECK 

IF RXGS ERROR 

SET, THEN 

CHECK SUR FOR BUS INITIALIZE 
CHECK FOR LCKP W ERROR 
GO TO LOOP ERROR 

FATAL ERR # 7 - LOOPING MOD-CSR ERR 
CHECK FOR HALT W ERROR 

halt if set 

<LOOPING MOD-CSR ERR> 

CALL ESR CHECK 
IF RXES ERROR 
SET, THEN 

CHECK SWR FOR BUS INITIALIZE 
CHECK FW LOCP ON ERROR 
GO TO LOOP ERROR 

FATAL ERR # 10 - LOOPING MOD-ESR ERR 

CHECK FOR HALT ON ERROR 

HALT IF SET 

<LOOPING MOD-ESR ERR> 


; RE TURN 
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7SA9 

7550 

7551 

7552 
75 S3 
755A 

7555 

7556 

7557 

7558 

7559 

7560 

7561 

7562 
7565 

7564 

7565 

7566 

7567 

7568 

7569 

7570 

7571 

7572 

7573 

7574 

7575 

7576 

7577 

7578 

7579 

7580 

7581 

7582 
7585 

7584 

7585 

7586 

7587 

7588 

7589 

7590 

7591 

7592 

7593 

7594 

7595 

7596 

7597 

7598 

7599 

7600 

7601 

7602 

7603 


S8TTL MODULE 2.3 - SYSTEM STATUS 

8EGIW0UTINE (MOD 2.3 - SYSTEM STATUS) 

If SYSTEM4f0 AVAJL=0 & SYSTEM^O=SELECTED 
: THEN 

: SET <SUC>=0 

: CALL DROP SYSTEM 

END If 

If SYSTEM#1 AVAJL=0 £ SYSTEMA1 =SElECTED 
; THEN 

: SET <SUC>=1 

CALL DROP SYSTEM 

END If 

If SYSTEM<fO & SYSTEMA1=N0T SELECTED 
: THEN 

SET SYSTEM fLAG 

: SET MSG ’W SYSTEM AVAILABLE TO fORMATER" 

: ELSE 

: If SYSTEM»1=SELECTED 

: : THEN 

: : IF SYSTEMA1 D0N£=1 

: THEN 

: : : IF SYSTEMAO SELECTED 

: : : THEN 

If SYSTEM^O D0NE=1 
: : THEN 

: : : : : SET SYSTEM FLAG 

; : : : CALL PRINT SYSTEM STATUS 

: : : : : CLEAR SYSTEWO £ SYSTEMAfI 

: : : : SETUP FORMATTER MSG 

; : : : ELSE 

: ; : : CALL SYSTEM TIMEOUT CHECK 

: : END IF 

: ELSE 

SET SYSTEM FLAG 

: : : : CALL PRINT SYSTEM STATUS 

: : CLEAR SYSTEMY1 DONE 

: : : : SETUP FORMATTER MSG 

; : END If 

: ELSE 

: CALL SYSTEM TIMEOUT CHECK 

: : END IF 

: : ELSE 

: : If SYSTEM^O D0NE=1 

: THEN 

: : SET SYSTEM FLAG 

: CALL PRINT SYSTEM STATUS 

: : : CLEAR SYSTEMAO DONE 

SETUP FORMATTER MSG 
: ELSE 

: : CALL SYSTEM TIMEOUT CHECK 

: ENDIf 

ENDIf 

ENDIF 

ENDROUTINE 


(MOD 2.3.2) 


(MOD 2.3.2) 


(MOD 2.3.1) 
DONE 


(MOD 2.3.3) 


(MOD 2.3.1) 


(MOD 2.3.3) 


(MOD 2.3.1) 


(MOD 2.3.5) 
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RXO? FMTR PROG 

MACY11 

30(1046) 

20-SEP 

-78 10: 

M 
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CZRXEA. 

P11 20-SEP-78 

00 

O 


MODULE 

2.3 - SYSTEM STATUS 









roUj 








7606 








7607 

006570 

000240 



SYSTAT; 

NOP 


7608 

006572 

005737 

00061 2 


1A23: 

TST 

SOAV 

7609 

006576 

001010 




BNE 

1823 

7610 

006600 

032777 

000001 

171676 


BIT 

#1,aSWR 

7611 

*OC>6606 

001404 




BEQ 

1823 

7612 

006610 

005037 

000610 



CLR 

sue 

7613 

006614 

004757 

007264 



CALL 

SYSDRP 

7614 

006620 

005737 

000614 


1823: 

TST 

SlAV 

7615 

006624 

001011 




BNE 

IC23 

7616 

006626 

032777 

000002 

171650 


BIT 

#2,aswR 

7617 

006654 

001405 




BEQ 

IC23 

7618 

006636 

012737 

000001 

000610 


MOV 

#1 .sue 

7619 

006644 

004737 

007264 



CALL 

SYSDRP 

7620 

006650 

032777 

000003 

171626 

IC23: 

BIT 

#3,aSWR 

7621 

006656 

001006 




BNE 

ID23 

7622 

006660 

005237 

000574 



INC 

SYSFLG 

7623 

006664 

012737 

014206 

000572 


MOV 

#MS68,SYSMSG 

7624 

006672 

000471 




BR 

EC 23 

7625 

006674 

052777 

000002 

171602 

ID23: 

BIT 

#2.aSWR 

7626 

006702 

001446 




BEQ 

IH23 

7627 

006704 

005737 

000630 


IE23: 

TST 

S1DN 

7628 

006710 

001440 




BEQ 

LE23 

7629 

006712 

032777 

000001 

171564 

IF23: 

BIT 

#1 ,aswR 

7630 

006720 

001422 




BEQ 

LF23 

7631 

006722 

005737 

000626 


IG23: 

TST 

SODN 

7632 

006726 

001414 




BEQ 

LG23 

7633 

006730 

005237 

000574 



INC 

SYSFLG 

7634 

006734 

004737 

007062 



CALL 

PTSYST 

7635 

006740 

005037 

000626 



CLR 

SODN 

7636 

006744 

005037 

000630 



CLR 

SI DN 

7637 

006750 

012737 

014246 

000572 


MOV 

#MSG9,SYSMSG 

7638 

006756 

000437 




BR 

EC23 

7639 

006760 

004737 

007342 


LG23: 

CALL 

SYTMCK 

7640 

006764 

000434 




BR 

EC23 

7641 

006766 

005237 

000574 


LF23: 

INC 

SYSFLG 

7642 

006772 

004737 

007062 



CALL 

PTSYST 

7643 

006776 

005037 

000630 



CLR 

SI DN 

7644 

007002 

012737 

014246 

000572 


MOV 

#MSG9,SYSMS6 

7645 

007010 

000422 




BR 

EC23 

7646 

007012 

004737 

007342 


LE23: 

CALL 

SYTMCK 

7647 

007016 

000417 




BR 

EC23 

7648 

007020 

005737 

000626 


IH23: 

TST 

SODN 

7649 

007024 

001412 




BEQ 

LH23 

7650 

007026 

005237 

000574 



INC 

SYSFLG 

7651 

007032 

004737 

007062 



CALL 

PTSYST 

7652 

007036 

005037 

000626 



CLR 

SODN 

7653 

007042 

012737 

014246 

000572 


MOV 

#MSG9,SYSMS6 

7654 

007050 

000402 




BR 

EC23 

7655 

007052 

004737 

007342 


LH23: 

CALL 

SYTMCK 

7656 

007056 

000240 



EC23: 

NOP 


7657 

007060 

000207 



X23: 

RETURN 



7658 


SEQ 0051 


IF SYSTE/^0 AVAIL 
EQUALS ZERO AND 
SYSTEWO 
SELECTED, THEN 
SET <SUC>=0 

CALL SYSTEM DROP (MOD 2.3.2) 

IF SYSTEM^I AVAIL 
EQUALS ZERO AND 
SYSTEWfl 
SELECTED THEN 
SET <SUO=1 

CALL SYSTEM DROP (MOD 2.3.2) 

IF sYS#o & SYs/n 

NOT SELECTED OR DESELECTED, THEN 
SET SYSTEM FLAG 

SET SYSTEM MSG 'NO SYSTEMS TO FORMAT" 

8R TO END ’C 
IF SYSTE.M/<n 
SELECTED, THEN 
IF SYSTEM/Y1 DONE 
SET, THEN 
IF SYSTEM/YO 
SELECTED, THEN 
IF SYSTEM<YO DONE 
SET, THEN 
SET SYSTEM FLAG 

CALL PRINT SYSTEM STATUS (MOD 2.3.1) 

CLEAR SYSTEM^O DONE 

CLEAR SYSTEM#! DONE 

SET SYSTEM MSG 'TORMAT COMPLETED" 

8R TO END 'C 

CALL SYSTEM TIMEOUT CHECK (MOD 2.3.3) 

8R TO END 'C 
SET SYSTEM FLAG 

CAIL PRINT SYSTEM STATUS (MOD 2.3.1) 

CLEAR SYSTEM#! DONE 

SET SYSTEM MSG "FORMAT COMPLETED" 

BR TO END ’C’ 

CALL SYSTEM TIMEOUT CHECK (MOD 2.3.3) 

8R TO END 'C 

IF SYSTEMYO DONE 

SET, THEN 

SET SYSTEM FLAG 

CALL PRINT SYSTEM STATUS (MOD 2.3.1) 

CLEAR SYSTEM#0 DONE 

SET SYSTEM MSG ‘IFORMAT COW^LETED" 

BR TO END 'C 

CALL SYSTEM TIMEOUT CHECK (MOD 2.3.3) 


RETURN 
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SEO 0052 


7660 

7661 

7662 

7663 

7664 

7665 

7666 

7667 

7668 

7669 

7670 

7671 

7672 

7673 

7674 

7675 

7676 

7677 

7678 

7679 

7680 

7681 

7682 

7683 

7684 

7685 

7686 

7687 

7688 

7689 
^690 


.S8TTL MODULE 2.3.1 - PRINT SYSTEM STATUS 

;8E6INR0UTINE (MOD 2.3.1 - PRINT SYSTEM STATUS) 

; SET <SUC>=0 
• BEGINDO 

INITIALIZE DRIVE PTR=1. 0RIVE_CTR=0 
If <SUC> D0NE=SET 
THEN 

PRINT "SYSTEM: <SUC> FORMAT DONE ON FOLLOWING: 
BEGINDO 

IF <SUC> AVAIL=8IT SET AT SYSTEM AVAIL PTR 
THEN 

IF <SUC> AVAIL-EITHER SIDE AVAIL 
THEN 

SET SIDE FLAG 
ELSE 

CLEAR SIDE FLAG 

ENDJF 

SET DRIVE # 

SET SIDE # 

CALL PRINT DRIVES IDENT 

END IF 

INCREMENT DRIVE COUNTER 
SHIFT LEFT DRIVE POINTER 
DO UNTIL DRIVE C0UNTER=1 
ENDDO 

ENDIF 

INCREMENT <SUC> 

DO UNTIL <SUC>=2 
; ENDDO 
.•ENDROUTINE 


[AJ 

CBJ 


CCJ 

CD3 

CE3 











B 5 
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C2RXEA, 

P11 20- SEP-78 

O 

00 


MODULE 

2.3.1 - 

PRINT SYSTEM STATUS 

SEQ 0053 

*7X A 















• 





769^ 










1 769A 

007062 




PTSYST: 





' (1) 

007062 

012704 

0 1 A A 52 



MOV 

#MSG14,R4 

;SET MSG-> "FORMAT DONE ON FOLLOWING" 


(1) 

007066 

004737 

013232 



GALL 

TTOUT 

; PRINT MSG 


; 769S 

007072 

005037 

000610 



CLR 

sue 

;S£T <SUC>=0 


76% 

007076 

012737 

000001 

007262 

BA231 : 

MOV 

#1. DRVPTR 

;INJTIAL1ZE DRIVE P01NTER=1 


7697 

007104 

005037 

007260 



CLR 

DRVCNT 

;1NIT1ALUE DRIVE COUNTER=0 


7698 

007110 

004737 

010126 



CALL 

s sue Of 

;CALL SET <SUC> OFFSET 


7699 

007114 

005761 

000626 


10231 : 

TST 

SODN(RI) 

;IF <SUC> DONE 


7700 

007120 

001450 




6EQ 

£6231 

;SET, THEN 


7701 

007122 

004737 

011132 



CALL 

PRTSYS 

;CALL PRINT SYSTEM IDENT 


i 7702 

007126 

000240 



8C231 : 

MCP 


# 


770^ 

007130 

033761 

007262 

000612 

1D251: 

BIT 

0RVPTR,S0AV(R1> 

;IF DRIVE POINTER=<SUC> AVAIL BIT 


7704 

007136 

001431 




BEQ 

ED231 

;SET, THEN 


770S 

007140 

032761 

000014 

000612 

IE231 : 

ei r 

#14,S0AV(R1) 

;IF EITHER SIDE IN <SUC> AVAIL 


7706 

007146 

001403 




BEQ 

LE231 

;SET, THEN 


7707 

0071 50 

005237 

011230 



INC 

PTSIDf 

;SET PRINT SIDE FLAG 


7708 

0071 54 

000402 




BR 

EE231 

;0R TO END 'E* 


7709 

007156 

005037 

011230 


LE231 : 

CLR 

PTSIDF 

; CLEAR PRINT SIDE FLAG 


7710 

007162 

013737 

007260 

011224 

EE 231: 

MOV 

ORVCNT, DRIVE 

;GET DRIVE COUNT 


7711 

007170 

042737 

000002 

011224 


BIC 

^2. DRIVE 

;CLEAR SIDE SIT (DRI VE=DRI VE#) PRINT 


! 771 2 

007176 

015737 

007260 

011226 


MOV 

DRVCNT, SIDE 

;GET DRIVE COUNT 


! 771 .3 

007204 

006237 

011226 



ASR 

SIDE 

.•SHIFT IT RIGHT TO SHOW SIDE BIT 


: 7714 

0<07210 

042737 

1 77776 

011226 


BIC 

#177776, SIDE 

.•CLEAR ANY JUNK BITS 


! 771 5 

007216 

004737 

011154 



CALL 

PRTDRV 

•CALL PRINT DRIVE IDENT 


7716 

007222 

005237 

007260 


ED231: 

INC 

DRVCNT 

.-INCREMENT DRIVE COUNTER 


7717 

007226 

006337 

007262 



ASL 

DRVPTR 

.-SHIFT LEFT DRIVE POINTER 


7718 

007232 

022737 

000004 

007260 

UC231 : 

CMP 

#4, DRVCNT 

;D0 UNTIL DRIVE COUNT 


7719 

007240 

001332 




BNE 

BC231 

.-EQUALS 4 


7720 

007242 

005237 

000610 


EB231 : 

INC 

sue 

.-INCR lENT <SUC> TO NEXT SYSTEM 


7721 

007246 

022737 

000002 

000610 

UA231 : 

CMP 

#2, sue 

;D0 UNTIL <SUC> 


7722 

007254 

001310 




BNE 

BA231 

.-EQUALS 2 


7723 

007256 

000207 



X231 : 

RETURN 


.-RETURN 


f r CH 







Wik M W 

■ .m- 


7725 

007260 

000000 



DRVCNT: 

0 


; DRIVE COUNTER 


7726 

007262 

000000 



DRVPTR: 

0 


.-DRIVE POINTER 


f f d.( 





« 




i 

f 

i 

1 

1 ; 
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77?9 

7750 

7751 

775 ^ 

7754 

7755 

7756 

7757 

7758 

7759 

7740 

774 1 
774? 
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MODULE 2.5.? - SYSTEM DROP 

.S8TTL MODULE 2.3.2 - SYSTEM DROP 

8EG1NR0UTINE (MOD 2.3.2 SYSTEM DROP) 

SETUP £ PRINT MSG “SYSTEM" 

SETUP £ PRINT SYSTEM# 

IF sue = 0 
THEN 

DESELECT SYSTEM#0 
ELSE 

DESELECT SYSTEM#1 

ENDIF 

SETUP £ PRINT MSG “NO DRIVES AVAIL - DROPPED* 
ENDROUTINE 


SEQ 0054 


7745 

7744 


7745 

007264 

012704 

016425 


SYSDRP: 

MOV 

#MSG51.R4 

SETUP MSG “SYSTEM:" 

7746 

907270 

004737 

013232 



CALL 

TTOUT 

PRINT IT! 

7747 

007274 

015703 

000610 



MOV 

SUC.R3 

SET SYSTE # 

7748 

007500 

004737 

013346 



CALL 

DC TP 

PRINT IT! 

7749 

007504 

005737 

000610 


IA232: 

1ST 

sue 

If SYSTEM UNDER CONTROL 

7750 

007310 

001004 




8NE 

LA232 

IS ZERO. THEN 

7751 

007312 

042777 

000001 

171164 


BIC 

#1.SSWR 

DESELECT SYSTEM ZERO 

7752 

007320 

000403 




BR 

EA232 

8R TO ENDIf ’A' 

7753 

007322 

042777 

000002 

171154 

LA232: 

BIC 

#2,SSWR 

ELSE DESELECT SYSTEM ONE , 

7754 

007330 

012704 

016475 


EA232: 

MOV 

#MS653.R4 

SETUP MSG 'DROPPED FROM FORMATTER* * 

7755 

007334 

004737 

013232 



CALL 

TTOUT 

PRINT IT! 

7756 

007340 

000207 



X232: 

RETURN 


RE TURN 


7757 
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7759 : r 

7760 

7761 
776? 

7765 

7764 


7766 

7767 

7768 

7769 

7770 

7771 
777 ? 

77?7 

7774 

7775 

7776 

7777 
778 

7779 

7780 

7781 
778? 
7785 
77wW, 

7785 

7786 

7787 

7788 

7789 
( 1 ) 

7790 

V 1 ) 

7791 
779? 
779? 

7794 

7795 

7796 

7797 
( 1 ) 

7798 
( 1 ) 

7799 

7800 

7801 
780? 


MACY11 30(1046) 
10:48 


007 V.? 0(K)?40 

00 7544 C-.5757 

0-07550 C01446 
0075S? 0??757 

007360 001417 
00756? 005057 

007566 004757 

00757? 01?704 

007576 004737 
00740? 01?704 

007406 004737 
00741? 005037 

007416 0004?3 
0074?0 0??757 
0074?6 001417 
007450 01?757 
007456 004757 
00744? 01?704 
007446 004757 
00745? 01?704 

007456 004737 
00746? 005037 
007466 005037 
00747? 000?07 


)00606 
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module ?.5.3 - SYSTEM TIMEOUT CHECK 

.S8TTL MODULE ?.3.5 - SYSTEM TIMEOUT CHECK 

;8EGINR0UTINE (MOD ?.3.3 - SYSTEM TIMEOUT CHECK) 
; IE SYSTEM ERROR N0T=0 
; : THEN 

; : IF SYSTEM ERR0R=SYS#0 TIME OUT ERROR 

; : : THEN 

; : : SET kSUO^^O 

; : : CALL SYSTEM IDENT 

; : ; SETUP & PRINT TIME OUT ERROR 

; : : CLEAR SYS #0 AVAILABLE WORD 

; : ENDIf 

; : IF SYSTEM ERROR-SYSMl TIMEOUT ERROR 

; : : THEN 

; : : SET <SUO=1 

; ; : CALL SYSTEM IDENT 

; : : SETUP & PRINT TIMEOUT ERROR 

• ; : CLEAR SYSAl AVAILABLE WORD 

; : ENOJF 

; ENDIF 

.-ENDROUTINE 


SYTMCK: 

1A?33: 


000010 000606 I8?53: 

000610 

01113? 

014?7? 

015?3? 

01570? 

015?3? 

00061? 

0000?0 000606 IC?3^: 


000001 

01113? 

014?7? 

013?3? 

01570? 

013?3? 

000614 

000606 


000610 


EA?55; 


NOP 

1ST 

BEO 

BIT 

BEO 

CLR 

CALL 

MOV 

CALL 

MOV 

CALL 

ClR 

6R 

BIT 

BEO 

MOV 

CALL 

MOV 

CALL 

MOV 

CALL 

CLR 

CLR 

RETURN 


SYSERR 
f A?33 

AlO.SYSERR 

IC?l5 

sue 

PRTSYS 

AMSG10,R4 

ttout 

AMSG41 ,R4 

TTOUT 

SOAV 

EA??5 

#?0,SY$ERR 

EA?l5 

#1.SUC 

PRTSYS 

#MSG10,R4 

TTOUT 

#MSG41,R4 

TTOUT 

S1AV 

SYSERR 


]F SYSTEM ERROR 

NOT 0. THEN 

IF SYSTEM ERROR 

EQUALS SYS#0 TIME OUT ERR 

SET <SUC> = 0 

CALL PRINT SYSTEM IDENT 

SET MSG-> * ’INTERRUPT DID NOT OCCUR’ 

PRINT MSG 

SET MSG-> "-time OUT ERROR" 

PRINT MSG 

CLEAR SYS#0 AVIALABLE 
8R TO END ’A* 

F SYSTEM ERROR 

EQUALS SYS#1 TIME OUT ERR , THEN 

SET <SUC> = 1 

CALL PRINT SYSTEM IDENT 

SET MSG-> "INTERRUPT DID NOT OCCUR" 

PRINT MSG 

SET MSG-> "-TIME OUT ERROR" 

PRINT MSG 

CLEAR SYSXn AVIALABLE 
CLEAR SYSTEM ERROR 
RETURN 
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SfO 0056 

! amA. 

1 
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10:48 


MODULE 2.4 - WATCH DOG SYSTtWO 

! 7-^XK 





.S8TTL MODUlf 

2.4 - WATCH DOG 

SYSTEMxrO 


1 7U{\K 






. . 



1 f oU > 





WATCHO: TST 


II. 


j 7KX> 

007474 

005757 

007670 


WATJNO 

,IF WATCH DOG INI TO 


7807 

007500 

001406 



8EQ 

IS 

;NOT = 0. THEN 


1 7808 

00750? 

005057 

007670 


ClR 

WATINO 

.•CLEAR WATCHDOG INIT #0 FLAG 


f 7809 

007506 

005057 

007566 


CLR 

WCNTRO 

.•CLEAR WATCH DOG COUNTER XfO 


7810 

00751? 

005057 

007570 


CLR 

WML TO 

.•CLEAR WATCH DOG MULTIPLIER #0 


7811 

007516 

005?57 

007566 


IS: INC 

WCNTRO 

.•INCREMENT WATCH DOG COUNTER AO 


781? 

0075?? 

075757 

007566 

007674 

CMP 

wcntro,wcntmx 

;IF COUNTER 


! 7815 

007550 

105415 



BLO 

XWATO 

;JS = TO COUNT MAX 


1 78U 

00755? 

005057 

007566 


CLR 

WCNTRO 

; CLEAR WATCH DOG COUNTER AO 


7815 

007556 

005257 

007570 


INC 

WML TO 

.•INCREMENT WATCH DOG MULTJPIER AO 


1 7816 

00754? 

025757 

007570 

000556 

CMP 

WMLTO,SOWWLT 

;IF multiplier 


7817 

007550 

105405 



BLO 

XWATO 

;IS = TO MULTIPLIER MAX 


7818 

00755? 

005057 

007570 


CLR 

WML TO 

.•CLEAR WATCH DOG MULTIPLIER AO 


i 7819 

007556 

052757 

000010 

000606 

BIS 

#10,SYSERR 

.•SET SYSTEM ERR = TIME OUT 


78?0 
78? 1 
78?? 

0<J7S64 

000207 



XWA.O: RETURN 


;RE turn 


007566 

000000 



WCN 'RO: 0 


.•WATCH DOG COUNTER AO 


78? 

007570 

ooooc^o 



yMLlU; 0 


; WATCH DOG MULTIPLIER AO 


f nc *4 

78^' 5 
78?6 
78? 7 
78?8 
78?9 





*11 »it, liill,,,, l» ,<WI, n» ,iw IIIII,, 111 lr rtm *» * 

.S8TTL MODULE 

2.5 “ WATCH DOG 

SYSTEMA1 


0075 7? 

00*^75/ 

007672 


WATCH1: TST 

WAT INI 

;1F WATCH DOG INITI 


7850 

007576 

001406 



BEQ 

IS 

.-NOT = 1. THEN 


7831 

CHD7600 

005057 

007672 


ClR 

WAT INI 

.•CLEAR WATCH DCG INIT A1 FLAG 


785? 

007604 

005057 

007664 


CLR 

WCNTR, 

.-clear uatch dog countef: ai 


7855 

0C7610 

005057 

007666 


CLR 

WMLn 

.•CLEAR WATCH DOG MULTIPLIER Al 


7854 

007614 

005257 

007664 


IS: INC 

WCNTR1 

.•INCREMENT WATCH DOG COUNTER Al 


7855 

0076?0 

025757 

007664 

007674 

CMP 

WCNTR1, WCNTMX 

;IF COUNTER 


7856 

0076?6 

105415 



BLO 

XWAT1 

;IS = TO COUNT MAX 


7857 

007650 

005057 

007664 


iLR 

WCNTR1 

.•CLEAR WATCH DOG COCA^TER Al 


7858 

007654 

005257 

007666 


INC 

WML T1 

.•INCREMENT WATCH DOG MULTIPIER Al 


7859 

007640 

025737 

007666 

000560 

CMP 

WMLT1,S1WMLT 

;IF MULTIPLIER 


7840 

007646 

105405 



BLO 

XWAT1 

;iS = TO MULTIPLIER MAX 


7841 

007650 

005037 

007666 


CLR 

wmlti 

.•CLEAR WATCH DOG MULTIPLIER Al 


784? 

007654 

052757 

000020 

000606 

BJS 

#20,SYSERR 

.‘SET SYSTEM ERR = TIME OUT 


7845 

79J A 

00766? 

000207 



XWAT1: RETURN 


.•RETURN 







# 




7845 

007664 

000000 



WCNTR1: 0 


.•WATCH DOG COUNTER Al 


7846 

7A/ 7 

007666 

000000 



WMLT1: 0 


.•WATCH DOG MULTIPLIER Al 







#' 




7848 

007670 

000000 



WATINO: 0 


.-WATCH DOG INITIALIZE FLAG AO 


7849 

00767? 

000000 



WAT INI: 0 


•WATCH DOG INITIALIZE FLAG Al 


7850 

007674 

177777 



WCNTMX: -1 


.•WATCH DOGS MAX COUNT LIMIT 


fo7 I 





# 

•* m. 



785? 
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SfQ 00S7 


78 S4 
785 S 
7856 

785 ? 

7858 

7856 


7864 


7866 

7867 

7868 
78^)6 

7870 

7871 

7872 
7877 
78/4 
7875 


S8TTL MODULE 3.0 - OUTPUl SYSTEM DONE 


BEGINPOUTINE (MOD 3.0 - OUTPUT SYSTEM DONE) 

SETUP I PRJNT 'DO YOU WANT TO FORMAT MORE DISKETTES?" 

CALL GET ANSWER 

IF ANSW£R~YES CAJ 

: THEN 

SETUP & PRINT "REMOVE FORMATTED DISKETTS & INSERT DISKETTS TO BE FORMATTED" 

: SETUP % PRINT "— >TYPE "CR" WHEN READY" 

: BGNDO EBJ 

: .-GET OPERATOR RESPUNSE-CALL TTY INPUT 

; DO UNTIL TTY CTR="CR" 

: ENDDO 

: ELSE 

SETUP & PRINT "FORMATTER DONE-RESTART MONITOR, UPDATE PROGRAM— >TYPE CTRi -( TO S 
SET SYSTEM FLAG- IDLE 

: ENABLE TTY INTERRUPTS £ SET TTY GO BIT 

END IF 

ENDROUTINE 


7876 

0076/6 




OTSYDN: 





;1 ) 

007676 

C1c'7('5 

0^6703 



MOV 

#MSG56,R4 

SET MSG-> DO YOU WANT TO FORMAT MORE 

diskettes:’ 

( 1 ) 

007702 

00A737 

0^3252 



CALL 

TTOUT 

PRINT MSG 


7877 

007706 

004737 

012624 



CALL 

GETANS 

CALL GET OPERATOR ANSWER 


7878 

007712 

122737 

000131 

000530 

IA30: 

cm 

)y*Y. ANSWER 

IF ANSWER 


7879 

007720 

001022 




&NE 

1 A3'0 

IS YES, THEN 


7880 

007722 

012704 

016766 



MOV 

#MSG57,R4 

SET MSG-> REMOVE FORMATTED DISKETTES 

£ INSERT DISKETTES 

(1 ) 

007726 

004737 

013232 



CALL 

TTOUT 

PRINT MSG 


7881 

007732 

012704 

017065 



MOV 

mSG58,RA 

SET MS6-> TYPE "CR" WHEN READY 


(1 > 

007736 

004737 

013232 



CALL 

TTOUT 

PRINT MSG 


7882 

007742 

004737 

013156 


BB30: 

CALL 

TUN 

CALL TTY INPUT 


7883 

007746 

122737 

00001 5 

000526 


cm 

#15, TIB 

DO UNTIL 


7884 

007754 

001372 




BNE 

B830 

CHARACTER-"CR" 


7885 

007756 

012737 

000002 

000574 


MOV 

#2,SYSFLG 

SET SYSTEM FLAG^RESTART 


7886 

007764 

000414 




BR 

X30 

BR TO MODULE EXIT 


7887 

007766 




LA30: 





(1) 

007766 

012704 

017117 



MOV 

#MSG59,R4 

■SET MSG-> FORMATTER DONE-RESTART MONITOR, UPDATE PROGRA 

M) 

007772 

004737 

013232 



CALL 

TTOUT 

PRINT MSG 


7888 

007776 

012737 

000100 

000574 


MOV 

#100,SYSFLG 

SET SYSTEM FLAG-IDLE 


7889 

010004 

052777 

000100 

170266 


BIS 

#8IT6,aTKS 

SET TTY keyboard INTERRUPT BIT 


7890 

010012 

005277 

1 70262 



INC 

stks 

SET TTY KEYBOARD GO BIT 


7891 

7892 

010016 

000207 



X30: 

* 

RE TURN 

4 

RETURN 

i 


^fCi 00‘'8 
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MODULE U.PRIHI - SET PROCESSOR PRlORUy HJGH U 0048 

759A 





.S8TTL MODULE 

U.PRIHI - SET PROCESSOR PRIORITY HIGH 

r C 7 ) 

7896 

7897 

7898 

7899 

010020 

010026 

010032 

0127^7 

004757 

00020'^ 

000340 

010050 

010074 

PR I HI: MOV 

CALL 
RE TURN 

#PR7,NEWPRI .-setup for PROCESSOR PRI LEV=7 

SETPRI ;SET PROCESSOR FLAG 

.-RETURN 

' VUV' 

7901 

790? 

•?or\ 7 





♦ 

.S8TTL MODULE 

U. PRILO - SET PROCESSOR PRIORITY LOW 

f' Vv) » 

7909 

7905 

7906 

7907 

70 A Q' 

010039 

010092 

010096 

012737 

004737 

000207 

000000 

010050 

010074 

• 

PRILO; MOV 
CALL 
RE TURN 

#PR0.NEWPRI .-SETUP FOR PROCESSOR PRI LEV=0 

SETPRI .-SET PROCESSOR PRI 

.-RETURN 

r Vl/O 

7909 

7910 

701 1 





♦ 

.S8TTL MODULE 

U.PROPRI - SET PROCESSOR PRI 

r V 1 ! 

791? 

7913 

7919 

7915 

7916 

7917 

7918 

7Q. 1 O 

010050 

010059 

010056 

010062 

010069 

010072 

005757 

001403 

106437 

000403 

013777 

000207 

000520 

010074 

010074 

167704 

# 

SETPRI; TST 
BEO 
MTPS 
BR 

1$: MOV 

SETPIX: RTS 

LSIFLG ;IF PROCESSOR IS 

1$ -LSI THEN 

NE WPRi -set' PROCESSOR PR I 

SETPIX ;8R TO END 

NEWPRl.aPSW .-SET PROCESSOR PRI 

PC .-RETURN 

f T t V 

79?0 

7921 

7922 

7923 
7929 

7925 

7926 

7927 

7928 

7929 
7950 

70^1 

010074 

000000 



kwPRI: 0 

;NEW PROCESSOR PRIORITY 





.S8TTL MODULE 

U.SADR - SET SYSTEM BUS ADDRESS 

010076 

010102 

010110 

010116 

010124 

004737 

016137 

016137 

062737 

000207 

010126 

000314 

000314 

000002 

000472 

000474 

000474 

* 

S sue AD: CALL 
MOV 
MOV 
ADD 

RETURN 

SSUCOF .-CALL SET <SUC> OFFSET 

REGSOCRD.RXCSAD.-SET NEW SYSTEM ADDRESS 
RE6S0(R1).RXD8AD;SET NEW SYSTEM D8 ADDR 
#2.RXD8AD .-eUMP ADDRESS 

.-RETURN 

7 t3 I 

7932 

7933 

70 7 A 





« 

.S8TTL MODULE 

U.SUCO - SET SYSTEM UNDER CONTROL OFFSET 

7955 

7956 

7937 

7938 

7939 

010126 

010152 

010134 

013701 

006301 

000207 

000610 


• 

SSUCOF: MOV 
ASI 

RETURN 

SUC.R1 .-GET SYSTEM UNDER CONTROL 

R1 .-DOUBLE IT! FOR WORD OFFSET ADDRESSING 

.-RETURN 
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7941 

7942 

7943 

7944 

7945 

7946 

7947 

7948 

7949 

7950 

7951 

7952 

7953 

7954 

7955 

7956 

7957 

7958 

7959 
7%0 

7961 

7962 
7%3 
7%4 
7965 
7%6 






.S8TTL 

MODULE 

U.DL - DELAY FOR 

'TR*' OR "DONE" 


010136 

013704 

010222 


DELAY: 

MOV 

RYDX,R4 

SET READY DELAY MULT 


010142 

013703 

010224 


BDAUDL : 

MOV 

RYDLY, R3 

SET READY DELAY 


010146 

0337Z7 

010226 

000054 

BD8UDL : 

BIT 

RDYWD. SC SRADR 

IF READY 


010154 

001021 




6NE 

XUDL 

EQUAL TO "I" .THEN BR TO 

EXIT 

0*0156 

005503 




DEC 

R5 

ELSE DECREMENT DELAY 


010160 

001572 




8NE 

8D8UDL 

DO UNTIL R3-0 


0^0162 

012737 

000007 

000524 


MOV 

#7,T08 

SET UP BELL 


010170 

004757 

013700 



JSR 

PC . TOG 

PRINT BELL 


Cl 01 74 

005304 




DEC 

R4 

DECREMENT DELAY MULT. 


010176 

001361 




BME 

BDAUDL 

DO UNTIL R4=0 


010200 

052737 

040000 

000606 


BIS 

#40000. SYSERR 

SET TIME OUT ERR 


010206 

015737 

010226 

010402 


MOV 

RDYWD. T0ER8T 

SET T.O. WORD 


010214 

004737 

010232 



JSR 

PC. TOPRT 

GO PRINT TIMEOUT ERRORS 


010220 

000207 



XUDL : 

RTS 

PC 

RETURN TO CALLING MOD 


010222 

000015 



RYDX: 

15 


: READY MULTIPLIER 


010224 

100000 



RYDLY; 

100000 


: READY DELAY 


010226 

000000 



RDYWD: 

0 


•READY WORD - TEST FOR DEVICE READY 

010230 

000000 



CSRADR: 

0 


•CSS REG OF UNIT- WAITING 

FOR 







nuUULL 







. sbttl 

TIME OUT ERROR PRINT 



010232 

03277? 

C' 20000 

1 70244 

TOPRT : 

BIT 

#8IT13.SSWR 

•IF INHIBIT ERROR RESULTS 



I 


I 
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TIME OUT ERROR PRINT 

7%8 

010240 

001057 



SNE 

TOPRTX 

7969 

010242 

C04757 

on 042 


JSR 

PC.TSHDCK 

7970 

010246 

032737 

000040 

010402 

1$: BIT 

jtdnbit.toerbt 

7971 

010254 

001405 



8EQ 

2S 

7972 

010256 

012704 

015031 


MOV 

AMSG30.R4 

7973 

010262 

004737 

013232 


JSR 

PC. T TOUT 

797A 

010266 

000404 



8R 

5$ 

797S 

010270 

01 2704 

0n055 


2S : MOV 

#MSG31.R4 

7976 

010274 

004737 

013232 


JSR 

PC. T TOUT 

7977 

010300 

012704 

015702 


3$ : MOV 

AMSG41 ,R4 

7978 

010304 

004737 

013232 


JSR 

PC.TTOUT 

7979 

010310 

032777 

040000 

170166 

BIT 

ASWU.alSWR 

7980 

010316 

001430 



BEQ 

TOPRTX 

7981 

010320 

012704 

013742 


MOV 

AMSG1 .R4 

7982 

010324 

004737 

013232 


jSR 

PC.TTOUT 

7983 

010330 

01 7703 

170136 


MOV 

aRXCSAD.R3 

7984 

010334 

004737 

01333A 


JSR 

PC.OCTPE 

7985 

010340 

012704 

014564 


MOV 

AMSG21.R4 

7986 

010344 

004737 

013232 


JSR 

PC.TTOUT 

7987 

010350 

017703 

170120 


MOV 

aRXD8AD.R3 

7988 

010354 

004737 

013334 


JSR 

PC.OCTPE 

7989 

010360 

012704 

014564 


MOV 

#MSG21.R4 

7990 

010364 

004737 

013232 


JSR 

PC.TTOUT 

7991 

010370 

013703 

000542 


MOV 

CMD.R3 

7992 

010374 

004737 

Cl 3346 


JSR 

PC.OCTP 

7993 

010400 

000207 



TOPRTX: RTS 

PC 

7994 







7995 

79QA 

010402 

000000 



T0ER8T: 0 



SEQ 0060 

IS NOT SET. THEN 

CALL TEST HEADER CHECK 

IF READV WORD WAS SET TO 

TEST DONE BIT. THEN 

SET DONE NOT SET MSG 

PRINT MSG 

GO PRINT MSG 

SET TR bit not SET MSG 

PRINT MSG 

SET TIME OUT MSG 

PRINT MSG 

IE EXTENDED ERROR REPORTS 

SET. THEN 

SET REG MSG 

PRINT MSG 

SET TO PRINT RXCS 

PRINT 

SET SPACES MSG 
PRINT 

SET TO PRINT RXES 
PRINT 

SET SPACES 
PRINT 

SET COMMAND 
PRINT COMMAND 
RETURN 
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'■9Q8 

7 GOO 





.S8TTL 

RXCS 

' tW 






' * ** 

8000 







8001 

010404 

017701 

1 70062 


CSRCHK: 

wv 

8007 

O'* 04 10 

043701 

000544 



BIC 

8003 

010414 

023701 

000546 



CMP 

8004 

010470 

001471 




BEQ 

BOOS 

0104?? 

010137 

011540 


1$: 

WV 

8'X)6 

010426 

015737 

000546 

011536 


WV 

S007 

010434 

012737 

011544 

011542 


MOV 

8008 

01044? 

012737 

000004 

011534 


MOV 

8009 

01 0450 

012737 

000014 

011532 


MOV 

80^0 

010456 

052777 

020000 

170020 


BIT 

8011 

010464 

001044 




8AIE 

801? 

010466 

004737 

011042 



CALL 

8015 

01047? 

012704 

014722 


2$: 

MOV 

8014 

010476 

004737 

013232 



JSR 

801 S 

01 050? 

032777 

040000 

167774 


eu 

8016 

010510 

001430 




8E0 

8017 

01051? 

012704 

014411 



MOV 

8018 

010516 

004737 

013232 



JSR 

8019 

01052? 

013703 

000546 



MOV 

80?0 

010526 

004737 

013334 



JSR 

8021 

01053? 

012704 

014564 



MOV 

80?? 

010536 

004737 

013232 



JSR 

80?3 

01054? 

013703 

011540 



MOV 

80?4 

010546 

004757 

013334 



JSR 

80?5 

01055? 

012704 

014564 



MOV 

80?6 

010556 

004757 

013232 



JSR 

80?7 

01056? 

017703 

167704 



MOV 

80?8 

010566 

004737 

013334 



JSR 

80?9 

01057? 

004737 

011314 


3$: 

JSR 

8030 

010576 

012700 

1 77777 


4$: 

MOV 

8031 

010602 

000405 




BR 

803? 

010604 

005000 



5$: 

CLR 

8033 

010606 

053700 

000606 



BIS 

8034 

01061? 

005037 

000606 



CLR 

8035 

010616 

050037 

000554 


CSRCKX: 

BIS 

8036 

8037 

01062? 

000207 




RTS 


J 5 
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SEO 0061 


RROR CHECK 

aRXCSAD,R1 

GET RXCS 

CSRMSK.R1 

MASK OFF BITS DON'T CARE ABOUT 

CSRCMP,R1 

IF RXCS CONTAINS 

5$ 

ERRORS, THEN 

R1 ,BADWRD 

SET BAD WORD 

CSRCMP.CMPWRD 

SET COMPARE WORD 

ffCMSGTBJABAOk 

SET MSG TABLE ADDRESS 

#4,81 toff 

SET A BITS TO OFFSET WORD 

#12.,8ITLIM 

SET # BITS TO CHECK 

/FSW13,aSWR 

IF INHIBIT ERROR REPORTS 

4$ 

NOT SET, THEN 

TSHDCK 

CALL TEST HEADER CHECK 

#MSG26,R4 

SET RXCS MSG HEADER 

PC, T TOUT 

PRINT MSG 

^SWl4,aSWR 

IF EXTENDED ERROR REPORTS 

3$ 

SET, THEN 

#MSG13,R4 

SET REG FORMAT MSG 

PC, T TOUT 

PRINT MSG 

CSRCMP,R3 

SET GOOD RXCS 

pc,ocTpe 

PRINT GOOD RXCS 

#MSG21 ,R4 

SET SPACES MSG 

PC, T TOUT 

PRINT SPACES 

BADyRD,R3 

SET COW>ARED RXCS 

PC.OCTPE 

PRINT COMPARED RXCS 

^S621 ,R4 

SET SPACES MSG 

PC, T TOUT 

PRINT MSG 

q>RXCSAD,R3 

SET FULL RXCS 

PC,OCTPE 

PRINT FULL RXCS 

PC,CK8JTS 

REPORT BAD BITS 

#-1 ,R0 

SET ERR 

CSRCKX 

BR TO END 

RO 

CLEAR ERRORS 

SrSERR,RO 

SET ANY SYSTEM ERRORS 

SYSERR 

CLEAR SYS ERROR 

RO,TSTERR 

SET TEST ERROR FLAG. IF ERRORS 

PC 

RETURN 


i 
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K039 .S8TTL RXES ERROR CHECK 

R040 

8041 


8X2 

010624 

01 770^ 

167644 


ESRCHK: 

MOV 

aRXDBAD^RI 

GET RXES 

8X.3 

010650 

04,5701 

000550 



BJC 

ESRMSK,R1 

MASK OtF BITS DON'T CARE ABOUT 

8*w*44 

010654 

025701 

000552 



CMP 

ESRCMP,R1 

IF RXES CONTAINS 

8XXS 

01-0640 

-001470 




BEQ 

5S 

ERRORS, THEN 

8046 

010642 

010157 

O' 1 540 


1$: 

MOV 

R1 ,BADWRD 

SET BAD WORD 

8047 

010646 

015757 

000552 

011536 


MOV 

ESRCMP^CMPyRD 

SET COMPARE WORD 

.8048 

010654 

012737 

011574 

011542 


MOV 

#EMSGrB,TABADR 

SET MSG TABLE ADR 

8049 

010662 

005037 

011534 



CLR 

BIT OFF 

SET BIT OFFSET 

8,0S0 

010666 

012737 

000014 

011532 


MOV 

4^12.,8ITLIM 

SET /f BITS TO CHECK 

8051 

010674 

052777 

020000 

167602 


BIT 

/YSWl3,aSWR 

IF INHIBIT ERROR REPORTS 

8052 

010702 

001044 




8AJE 

4$ 

NOT SET, THEN 

8055 

010704 

004757 

011042 



CALL 

T SHOCK 

CALL TEST HEADER CHECK 

8054 

010710 

012704 

014736 


2$: 

MOV 

mSG27,RA 

SET RXES MSG HEADER 

8055 

010714 

004737 

013232 



JSR 

pc.rrour 

PRINT MSG 

8056 

010720 

052777 

040000 

167556 


BIT 

AfSWl4.aSWR 

IF EXTENDED ERROR REPORTS 

8057 

010726 

001450 




BEQ 

5$ 

SET, THEN 

8058 

010730 

012704 

014411 



MOV 

#MSG13,R4 

SET REG FORMAT MSG 

8059 

010734 

004737 

013232 



JSR 

PC, rrouT 

PRINT MSG 

8060 

010740 

013703 

000552 



MOV 

ESRCMP.R3 

SET GOOD RXES 

8061 

010744 

004737 

013334 



JSR 

PC,0CTP£ 

PRINT GOOD RXES 

8062 

010750 

012704 

014564 



MOV 

4fMSG21 ,R4 

SET SPACES MSG 

8063 

010754 

004737 

013232 



JSR 

PC,TT0UT 

PRINT SPACES 

: 8064 

010760 

013703 

01 1 540 



MOV 

6ADUIRD,R3 

SET COMPARED RXES 

8065 

010764 

004737 

013334 



JSR 

PC,0CTPE 

PRINT COMPARED RXCS 

8066 

010770 

012704 

014564 



MOV 

#MSG21 ,R4 

SET SPACES MSG 

8067 

010774 

004737 

013232 



JSR 

PC, T TOUT 

PRINT MSG 

8068 

011000 

017703 

167470 



MOV 

aRXD8AD,R3 

SET FULL RXCS 

8069 

011004 

004737 

013334 



JSR 

PC,OCTPE 

PRINT FULL RXCS 

8070 

011010 

004737 

011314 


3$: 

JSR 

PC,CK8ITS 

REPORT BAD BITS 

8071 

011014 

012700 

177777 


4$; 

MOV 

#~1 ,R0 

SET ERR 

8072 

011020 

000405 




8R 

ESRCKX 

8R TO END 

8073 

011022 

005000 



5$: 

CLR 

RO 

CLEAR ERRORS 

8074 

011024 

053700 

000606 



BIS 

SVSERR,R0 

SET ANY SYSTEM ERRORS 

8075 

011030 

005037 

000606 



CLR 

SYSERR 

CLEAR SYSTEM ERRORS 

8076 

011034 

050037 

000554 


ESRCKX: 

BIS 

RO,TSTERR 

SET TEST ERROR FLAG, IF ERRORS 

8077 

011040 

000207 




RTS 

PC 

RETURN 


8078 
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8080 





•S8TTL TEST 

oOo t 

808? 





# 

8083 

01104? 

005757 

00050? 


T SHOCK: TST 

8084 

011046 

001050 



BNE 

8085 

011050 

005?57 

00060? 


INC 

8086 

011054 

01 3704 

000600 


MOV 

8087 

011060 

004757 

013?3? 


JSR 

8088 

011064 

004737 

0101 ?6 


CALL 

8089 

01 1070 

004737 

01113? 


CALL 

8090 

011074 

03?761 

0000?0 

0006?? 

BIT 

8091 

OHIO? 

001404 



BEQ 

809? 

011104 

01?737 

000001 

011??4 

MOV 

8095 

01111? 

00040? 



BR 

8094 

011114 

005037 

011??4 


1$: CLR 

8095 

0111?0 

005037 

011?30 


?$: CLR 

8096 

0111?4 

004757 

011154 


CALL 

8097 

011130 

000?07 



ENDTSH: RTS 


8098 


SEQ 0065 


L 5 

1:48 PAGE 69-5 
IEC< £ PRINT 

lEADER CHECK g PRINT 


HDRFLG 

IF header FLAG 

ENDTSH 

NOT SET, THEN 

HDRFLG 

SET TEST HEADER FLAG 

TMSGAD,R4 

SET TEST MSG 

PC, T TOUT 

PRINT TEST MSG 

S sue OF 

CALL SET <SUC> OFFSET 

PRTSYS 

CALL PRINT SYSTEM IDENTIFICATION 

#DRV1,S0CMD(R1) 

IF DRIVE #1 

1$ 

SELECTED, THEN 

/n, DRIVE 

SET DRIVE=xn 

?$ 

8R TO ?$ 

DRIVE 

SET DRIVE=#0 

PTSIDF 

CLEAR PRINT SIDE FLAG 

PRTDRV 

CALL PRINT DRIVE 

PC 

RETURN 


M 5 

CZRXEAO RX02 FRTR PROG MACYll 30(1046) 20-SEP-78 10:48 PAGE 69-4 

CZRXEA.P11 20-SEP-78 10:48 MODULE U.PRTSYS - PRINT SYSTEM IDENTIFICATION SEQ 0064 


8100 




.S8TTL MODULE 

U.PRTSYS - PRINT 

SYSTEM IDENTIFICATION 

o I U I 

810? 

(1) 

011132 

011132 

012704 

016425 

PRTSYS: 

MOV 

#MSG51 ,R4 

;SET MS6-> •■SYSTEM:" 

n ) 

011136 

004737 

013252 

CALL 

TTOUT 

; PRINT MSG 

8103 

Oil 142 

013703 

000610 

MOV 

SUC,R3 

;SET SYSTEM# FOR PRINT 

8104 

011146 

004737 

013346 

CALL 

OCTP 

;PRI NT IT! 

8105 

8106 

011152 

000207 


RETURN 


-RETURN 


8107 

8108 .S8TTL MODULE U.PRTDRV - PRINT DRIVE IDENTIFICATION 

8109 

8110 


8111 

011154 



PRTDRV: 




(1) 

011154 

012704 

014547 


MOV 

#MSG17,R4 

SET MS6-> 'DRIVE: " 


01*160 

004737 

013232 


CALL 

TTOUT 

PRINT MSG 

8112 

011164 

013703 

011224 


MOV 

DRIVE. R3 

GET DRIVE # 

8113 

011170 

004737 

013346 


CALL 

OCTP 

PRINT IT! 

8114 

01 1 1 74 

005737 

011230 


TST 

PTSIDF 

If SIDE FLAG 

81*5 

011200 

001410 



BEQ 

XUPTDV 

SET, THEN 

8116 

011202 

012704 

014556 


MCC 

#MSG20.R4 

SET MSG-> "SIDE: " 

< 1 ) 

011206 

004737 

013232 


CALL 

TTOUT 

PRINT MSG 

8117 

011212 

013703 

011226 


MOV 

SIDE,R3 

GET SIDE # 

8118 

011216 

004737 

013346 


CALL 

OCTP 

PRINT IT! 

8119 

011222 

000207 


XUPTDV: 

return 


RETURN 

c 1 cU 




» 



. , <m m. >m ttm. -m. 

8121 

011224 

000000 


DRIVE: 

0 


DRIVE ff TO PRINT 

8122 

011226 

000000 


SIDE: 

0 


SIDE # TO PRINT 

8123 

011230 

000000 


PTSIDF: 

0 


SIDE PRINT CONTROL FLAG 

Oi 




,:0 ^ 



, . ... . ■ . . . „ ,, , , 


81 

81 ?6 .S8TTL MODULE U.PRTKSC - PRINT TRACK & SECTOR ERROR I DENT 

81 21 ; — — — — — 

81 ?8 


8129 

011232 



PRTKSC: 




(1) 

011232 

012704 

014570 


MOV 

#MSG22.R4 

SET MSG-> "CRC ERROR-" 

(1) 

011236 

004737 

013232 


CALL 

TTOUT 

PRINT MSG 

8130 

01 1242 

012704 

014506 


MOV 

#MSG15.R4 

SET MSG-> ’TRACK-" 

O) 

011246 

004737 

013232 


CALL 

TTOUT 

PRINT MSG 

8151 

011252 

016103 

011304 


MOV 

S0TRK(R1).R3 

GET TRACK # 

8152 

011256 

004737 

013346 


CALL 

OCTP 

PRINT IT! 

8133 

011262 

012704 

014526 


MOV 

#MSG16.R4 

SET MS6-> ••SECTOR^" 

(1) 

011266 

004737 

013232 


CALL 

TTOUT 

PRINT MSG 

8^54 

011272 

Cl 61 03 

011310 


MOV 

SOSEC (R1).R3 

GET SECTOR # 

3135 

011276 

004737 

013346 


CALL 

OCTP 

PRINT IT! 

8136 

011302 

000207 



RETURN 


RETURN 

o f 




« 




8138 

011304 

000000 


SOTRK: 

0 


SYS#0 TRACK 

8139 

011306 

000000 


S1TRK: 

0 


SYS#1 TRACK 

8140 

011310 

000000 


SOSEC: 

0 


SYS#0 SECTOR 

8141 

8142 

011312 

000000 


SI SEC: 
# 

0 


SYS#1 SECTOR 









N 5 


C2RXEA0 

RXO? FMTk prog 

MACY11 

30(1046) 

20-SEf 

>-78 10; 48 PAGE 69-5 


CZRXFA. 

P11 2C 

hSEP-78 

10:48 


CHECK E 

UTS SET 

& NOT SET 

SCO 0065 

81 44 





.S8TTL 

CHECK 

BITS SET g NOT SET 


rt ! 4 1 

8146 





# 




81 4 ^ 

0^^514 

005057 

0115P4 


CK8ITS: 

fLR 

81 TPAS 

.•CLEAR BIT PASS COUNT 

8148 

01 1 5?0 

01?757 

01???? 

011530 


MOV 

#S£TMSG,8ITM$6 

;SET, SET BITS MSG ADR 

8149 

0115?6 

01 5700 

011536 



MOV 

CMPyRD,RO 

;GET COMPARE WORD 

81 SO 

01155? 

01 5701 

011540 



MOV 

aAoyRD,Ri 

;GET BAD WORD 

8151 

0 1556 

040001 




BIC 

R0,R1 

;R1 = BITS THAT SHOULDN'T BE SET 

81 5? 

011540 

005100 




COM 

RO 

.•COMPLIMENT COMPARE WORD 

8155 

01154? 

055700 

01 1 540 



8JS 

BADWRD,R0 

;S£T BITS 

81 54 

011546 

005100 




COM 

RO 

;R0 = BITS THAT SHOULD BE SET 

81 55 

011550 

005757 

011534 



1ST 

9IT0FF 

;IF BIT OFFSET 

8156 

011554 

001411 




8EQ 

?s 

;NOr=0. THEN 

81 5 Z 

01 1 556 

005557 

011554 


1$: 

DEC 

BiTOfF 

0 

81 58 

01 1 ;56? 

'0<X)?41 




CLC 


; CLEAR CARRY 

8*59 

01 1 564 

006000 




ROR 

RO 


8^60 

011566 

000?41 




CLf 


.•CLEAR CARRY 

8161 

01 1 570 

006001 




ROR 

R1 

0 

816? 

01157 ? 

005757 

011554 



TST 

8 1 TOFF 

;IF BIT OFFSET 

8165 

011576 

001 567 




BNf 

IS 

; EQUALS 0. THEN 

8*64 

0*1400 

005057 

om?6 


2$: 

(LR 

8ITCNT 

.-clear bit counter 

8165 

01 1404 

05? 701 

000001 


3S: 

BIT 

01 ,R1 

; 

81 6^) 

0^1410 

0014?0 




BEO 

4$ 


81 6 Z 

01"41? 

01?704 

0^5?10 



MOV 

#MSG35,R4 

.-SET UP MSG 

8*>68 

011416 

004757 

013?5? 



./SR 

PC. T /OUT 

.-PRINT MSG 

8169 

0114?? 

01 5704 

om?6 



MOV 

BITCNr.R4 

.-GET 81 f COUNT 

8170 

0^1 4?6 

006504 




ASl 

R4 

; DOUBLE FOR WORD ADDRESSING 

8171 

011450 

065704 

01154? 



ADD 

TAaA0R,R4 

.-ADD TABLE ADDRESS 

: 817? 

011454 

011404 




MOV 

(R4).R4 

.-SET MSG TO PRINT 

! 8175 

011456 

004757 

013?3? 



JSR 

PC.TTOUT 

.•PRINT MSG 

81 74 

01144? 

01 5704 

011550 



MOV 

8JTMSG.R4 

.-SET SET BITS MSG 

8175 

011446 

004 757 

013?5? 



JSR 

PC.TTOUT 

.-PRINT MSG 

81 76 

01145? 

005? 57 

0115?6 


4$: 

INC 

BITCNT 

.-INCREMENT BIT# COUNTER 

: 81 77 

011456 

000?41 




CLC 


; CLEAR CARRY dl T 

! 8178 

011460 

006001 




ROR 

R1 

.-SHIFT NEXT BIT FOR TEST 

81 79 

01146? 

0?5757 

01153? 

011526 


CMP 

8ITIIM.8ITCNT 

;1F ALL BITS SPECIFIED 

8180 

011470 

101545 




8HI 

3S 

.-DONE. THEN 

8181 

01147? 

005057 

0115?6 



CLR 

BITCNT 

.-RESET BIT COUNT 

818? 

011476 

005757 

om?4 



TST 

ei TPAS 


8185 

01 150? 

001007 




6NE 

5S 


8184 

01 1 504 

005?57 

011524 



INC 

81 TPAS 

•SET 8ITPASS TO GET OUT NEXT PASS 

8185 

011510 

01?757 

012200 

011530 


MOV 

/TNSMSG.eiTMSG 

;SFT NOT SET BITS MSG ADR 

81 8^) 

011516 

010001 




MOV 

R0.R1 

;G£T NOT SET BITS FOR TEST 

8187 

0115?0 

000751 




BR 

3$ 

;D0 NOT SET BITS 

8188 

0115?? 

000?07 



5$: 

RTS 

PC 

.-RETURN 

81 





» 

m , UBl , IBL 

, mm- 

4ft 4W." «« HH. , , , . ' Jii. . ati% mm .. mm 

8190 

0115P4 

000000 



eiTPAS 

0 



819I 

0115?6 

000000 



81TCNT 

0 



819? 

011530 

000000 



81TMSG 

0 



8195 

01155? 

000000 



BITLIM 

0 



8194 

011534 

000000 



BITOff 

0 



8195 

011536 

000000 



CMPWRO 

0 



8196 

011540 

000000 



BADWPD 

0 



8197 

o -1 net 

01154? 

000000 



rA8A0« 

0 



8 1 W 





f 
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1 CZRXEAO 

RX02 FMTR PROG 

MACY11 

30(1046) 

20-SEP- 

•78 10 

:48 PAGE 69-6 

CZRXEA. 

PIT 20-SEP-78 

00 

o 


CHECK 

BITS SET 

& MOT SET SEQ 0066 










^ oztUU 









8201 

011544 

011624 



CMS6TE 

5: 

.WORD 

CMSG4 

8202 

01 1 546 

011634 





.WORD 

cmG5 

i 8203 

011550 

011641 





.WORD 

CHSG6 

8204 

01 1552 

011662 





.WORD 

CmG7 

8205 

011554 

011665 





.WORD 

CMSG8 

8206 

011556 

011675 





.WORD 

C/^SG9 

8207 

01 1 560 

011704 





.WORD 

CWSG10 

8208 

01 1 562 

011713 





.WORD 

CMSG1 1 

i 8209 

011564 

011750 





.WORD 

CnSG12 

i 8210 

011566 

011750 





.WORD 

C/^SG12 

1 8211 

01 1 570 

014202 





.WORD 

MSG7 

8212 

011572 

011770 





.W0R[> 

CMSG15 










i; OC I .3 





0 



m. 

; 8214 

011574 

01 1 777 



EMSGTS 

J: 

. WORD 

E.^SGO 

821 5 

011576 

012003 





.WORD 

EmCI 

1 8216 

011600 

012014 





.WORD 

EmG2 

8217 

011602 

012026 





.WORD 

EMSG5 

8218 

011604 

012035 





.WORD 

E.MSG4 

8219 

011606 

012051 





.UXDRD 

EmG5 

8220 

011610 

012066 





.WORD 

EA1SG6 

8221 

011612 

012103 





.WORD 

EMSG7 

8222 

011614 

012115 





.WORD 

EmG8 i 

i 8223 

011616 

012125 





.WORD 

EMSG9 

8224 

011620 

012134 





.WORD 

EMSG10 

8225 

011622 

012156 





.WORD 

EA1SG11 

O *8 3Z 









OC€t> 






m mm . <M 


■m. mm ^ mt* 

8222 

011624 

051104 

053111 

020105 

C/^SG4 


.ASCJi 

/DRIVE U/ 

8228 

011654 

047504 

042516 

043 

CMS65 


.ASCiJ 

/DONE^/ 

8229 

011641 

111 

052116 

051105 

C?^SG6 


.ASCiJ 

/INTERRUPT ENABLE#/ 

8230 

011662 

051124 

043 


CHSG7 


.ASCJJ 

/TR#/ 

8231 

011665 

104 

047105 

044523 

C.MSG8 


.ASCII 

/DENSITY#/ 

8232 

011675 

123 

0421 1 1 

020105 

CAISG9 


.ASCII 

/SIDE 1#/ 

8233 

011704 

044502 

020124 

030061 

CinSGK 

): 

.ASCII 

/BIT 10#/ 

8234 

011715: 

104 

052517 

046102 

CMSG11 

1: 

.ASCII 

/DOUBLE DENSITY FLOPPY SYSTEM#/ 

8235 

011750 

054105 

042524 

042116 

CMSGli 

>. 

.ASCII 

/EXTENDED MEMORY#/ 

8236 

01 1 770 

051105 

047522 

020122 

CMSG1J 

i: 

.ASCII 

/ERROR #/ 

oc3 r 





0 




8258 

011777 

103 

041522 

043 

EMSGO 


.ASCII 

/CRC#/ 

8239 

012005 

123 

0421 1 1 

C'20105 

EMSGt 


.ASCII 

/SIDE RDY#/ 

8240 

012014 

047111 

0521 1 1 

042040 

EMSG2 


.ASCII 

/INIT DONE#/ 

8241 

012026 

041501 

046040 

053517 

E/^SG3 


.ASCII 

/AC LOW#/ 

8242 

012055 

104 

047105 

044523 

EWS64 


.ASCII 

/DENSITY ERR#/ 

8243 

012051 

104 

051511 

020113 

EMSG5 


.ASCII 

/DISK DENSITY#/ 

8244 

012066 

042504 

042514 

042524 

EMSG6 


.ASCII 

/DELETED DATA#/ 

8245 

012103 

104 

044522 

042526 

EWS67 


.ASCII 

/DRIVE RDY#/ 

8246 

012115 

104 

044522 

042526 

EWSG8 


.ASCII 

/DRIVE 1#/ 

8247 

012125 

123 

042111 

020105 

EWSG9 


.ASCII 

/SIDE 1#/ i 

8248 

012134 

047527 

042122 

041440 

EWSGK 

): 

.ASCII 

/WORD CNT OVERFLOW#/ 

8249 

012156 

047516 

020116 

054105 

EWSG11 

1: 

.ASCII 

/NON EXISTENT MEM.#/ 

OCJV 





0 

mmmm 


' ' 1 

8251 

012200 

041040 

052111 

047055 

NSMS6: 


.ASCII 

/ BIT-NOT SET ERR #/ 

8252 

012222 

041040 

052111 

051455 

SETMS( 

3: 

.ASCII 

/ BIT-SET ERR #/ 

8253 

0"1^C/ 







.EVEN 


Oil 





0 




8255 











-C 6 

CZH^EAO RX02 FMTR PROG l«iACYl1 30(10A6) P0-SEP-Z8 10:48 PAGE 69-7 
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mr 

0 Q 





.sem ERROR 

SET SUBROUTINE 


‘ >c ^C> 
















8260 

012240 

017637 

000000 

000402 

ERRSET: MOV 

a(SP),$FATAt 

.MOVE ERR^ TO SFATAL MAILBOX 

8^61 

Cl 2246 

012757 

000001 

000400 

MOV 

#1,$MSGTY 

;SET MAIL BOX FLAG 

8262 

O' 2254 

062716 

000002 


ADD 

#2,(SP) 

.•ADJUST STACK RETURN ADDRESS 

826 3 

8264 

012260 

000207 



ERSETX: RTS 

PC 

.-RETURN 





0 



826S 








826^) 





.S8TTL BUS INJTiALlZE SUBROUTINE 

■QO^'7 








ocOr 





0 



8268 








8269 

012262 

052777 

041000 

166214 

BSJNIT: BIT 

#41000,aSWR 

;IF LOOP 

8270 

012270 

001407 



8EQ 

1$ 

; IS SET, THEN 

8271 

012272 

004757 

011042 


CALL 

TSHDCK 

.■PRINT TEST HEADER 

.8272 

012276 

052777 

010000 

166200 

BIT 

#swi2,aswR 

;IF Bus INITIALIZE 

8275 

012504 

001401 



8EQ 

1$ 

;8IT SET. THEN 

8274 

012506 

000005 



RESET 


.•INITIALIZE BUS 

8275 

012510 

005757 

012402 


IS: 1ST 

LPPRT 

;IF LOOP MESSAGE 

8276 

012514 

001026 



BNE 

5$ 

.-NOT PRINTED. THEN 

8277 

012516 

052777 

001000 

166160 

2S: BIT 

#SWC9.aSWR 

;IF LOOP ON 

8278 

012524 

001405 



BEQ 

3$ 

-ERROR, THEN 

8279 

012526 

012704 

014752 


MOV 

#MS628,R4 

;SET LOOP ON ERROR MSG 

8280 

012552 

004757 

013232 


CALL 

TTOUT 

•PRINT MSG 

8281 

012556 

000407 



BR 

4$ 


8282 

012540 

005777 

166140 


5$ TST 

aswR 

;If HALT ON ERROR 

8285 

012544 

100012 



8PL 

5$ 

;IS SET, THEN 

8284 

012546 

012704 

015223 


MOV 

#MSG37,R4 

. SET halt on .error MSG 

8285 

012352 

004737 

013232 


CALL 

TTOUT 

.•PRINT MSG 

8286 

012356 

011603 



4$: MOV 

(SP),R3 

.-GET RETURN ADR 

8287 

012360 

062703 

000014 


ADD 

^14, R3 

;ADJ. ADDRESS FOR ERR NO. 

8288 

012364 

011303 



MOV 

(R3),R3 

; GET ERR NO. 

8289 

012366 

004757 

015346 


CALL 

OCTP 

.•PRINT ERR » 

8290 

012372 

012737 

000001 

012402 

5S: MOV 

#1. LPPRT 

.-SET LOOP MSG PRINTED FLAG 

8291 

8292 

012400 

000207 



BSINTX: RTS 

PC 

.•RETURN 





0 



8293 

8294 

0124C? 

000000 



LPPRT: 0 

0 


.•LOOP FLAG 
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CZRxEA.PH PO-SEP-78 10:48 RX02 INTERRUPT HANDLER ffO 

8?97 
a?98 
8?99 

8500 

8501 
850? 

8505 

8504 

8505 
8306 

8507 

8508 

8509 

8510 

8511 
831? 

8315 

8314 

8315 

8316 
(1) 

8317 

8318 

8319 
83?0 
83?1 
83?? 

83?3 


SEQ 0068 






.S8TTL 

RXO? 

INTERRUPT HANDLER 

00 

01?404 

005257 

000616 


0 

RXINTO: 

INC 

SORDY 

; INCREMENT SYS 00 READY 

01?A10 

000002 




RTI 


.•RETURN TO CALLER 





» ■ . . » *1 

.S8TTL 

RXO? 

INTERRUPT handler 

01 

012412 

005237 

000620 


r 

RXJNT1 : 

INC 

S1RDY 

: INCREMENT SYS 01 READY 

012416 

000002 




RTI 


.•RETURN TO CALLER 





'.S8TTL 

TTY 

INTERRUPT HANDLER 


012420 

004757 

013156 


TTINT: 

CALL 

TTJN 

.'CALL TTy INPUT ROUTINE 

012424 

115757 

000526 

000632 


wove 

TJ8,TTJTFG 

.-SAVE TTY ISPUT CHARACTER 

012432 

022757 

000003 

000652 



#3,TTITFG 

;JF TTY INTERRUPT 

012440 

001007 




BNE 

1$ 

.-WAS CTRL C, THEN 

012442 

012704 

014715 



MOV 

W«ISG25,R4 

;S£T MSG-> '•^C” 

012446 

004737 

013252 



CALL 

TTOUT 

.•PRINT MSG 

012452 

005000 




CLP 

RO 

# 

012454 

0001 37 

001000 



JMP 

start 

;JUMP TO START OVER 

012460 

052777 

000100 

165612 

1$: 

BIS 

#8IT6,a)TKS 

.-SET TTY INTERRURT BIT 

012466 

005277 

165606 



INC 

aTKS 

.•SET TTY 60 BIT 

01247? 

000002 




RTI 






i CZf^XFAO RXO? FWTR PROG 
C2RXEA. pn 20'SEP«78 


WACYll 

10:A8 


E 6 

30(1046) 20-SEP-78 10:48 PAGE 69-9 

BUS ADDRESS TRAP HANDLER 


SfO 0069 




,S8TTL bus ADDRESS TRAP HANDLER 


83?6 
83? 7 
1 83?8 

C1?4 74 

005357 

000570 

■§ 

TRAP: 

]NC 

BTRPfL 

;SET BUS TRAP FLAG 

i 83?9 

01?500 

0537/7 

030000 165776 


BIT 

#30000, a$WR 

;SEE IF SHOULD PRINT ERRORS 

1 8330 

01?506 

001030 



■6M€ 

TRAP? 

;IF not, BR 

8331 

01?510 

005757 

000603 


TST 

HDRFL6 

;SEE IF DONE HEADER 

833? 

01?514 

001006 



BNE 

TRAP1 

;IF SO, QR 

t 8335 

01?516 

005357 

000603 


INC 

HDRFLG 

.•ELSE SET HEADER FLAG 

8354 

01 ?5?? 

01 5704 

000600 


WV 

TMSGAD,R4 


8335 

01?5?6 

004757 

015333 


JSR 

PC, T TOUT 

;PR1NT HEADER 

8336 

01?53? 

013704 

014701 

TRAP1 ; 

MOV 

#MSG34,R4 


1 8337 

01?536 

004757 

013333 


JSR 

PC, T TOUT 

.•PRINT ERROR 

i 8358 

01?54? 

010103 



MOV 

R1,R3 


I 8359 

013544 

004737 

015346 


JSR 

PC,OCTP 

.•PRINT ADDRESS OF TRAP 

8340 

01?550 

004737 

013570 

TRAP?: 

JSR 

PC,APTER 


8341 

013554 

000055 



• WORD 

55 

.-BUS TRAP ERROR 

854? 

013556 

005777 

165733 


Tsr 

aswR 

;S£E IF halt ON ERROR 

8345 

013563 

100001 



8PL 

TRAPX 

;iF NOT, BR 

8344 

013564 

000000 



HALT 



8345 

013566 

000003 


TRAPX ; 

RTI 


.•return from INTERRUPT 


a?4 2 

8348 

8349 

8350 

8351 


8353 

8354 

8355 

8356 


8358 

8359 

8360 

8361 
836? 

8565 

8364 

8365 

8566 

8567 

8568 

8569 
8370 


.S8TTL APT ERROR HANDLER 


013570 

1 53737 

000001 

000430 

APTER: 

eiTB 

#APTENV,$£NV 

:IF IN 

013576 

001407 




8EQ 

3S 

.APT MODE, THEN 

013600 

017637 

000000 

000403 


MOV 

a(SP),SFATAL 

.MOVE ERR # TO IFATAL MAILBOX 

013606 

013737 

000001 

000400 


MOV 

#1.SMSGTY 

.-SET MAIL BOX FLAG 

013614 

000777 



1$; 

BR 

1$ 

.APT ERROR LOOP 

013616 

063716 

000003 


3S: 

ADD 

#3,(SP) 


013633 

000307 




RTS 

PC 

.•return 





0 

.sbttl 

MODULE 

U.OPRANS - SETUP 

& GET OPERATOR ANSWERS 

013634 

013757 

000116 

013646 

# 

GETANS: 

MOV 

#'N.ANSDEF 

.-SET DEFAULT ANSWER-' NO*' 

013633 

013737 

000131 

C13650 


MOV 

#’Y, ANSCHG 

;SET CHANGE ANSWER-"YES" 

013640 

004737 

015056 



CALL 

TTAR 

.•GET ANSWER-CALL TTY ANSWER 

013644 

000307 




RETURN 


.•RETURN 

013646 

000000 



WSDEF : 

0 


.•default answer buffer 

013650 

000000 



ANSCHG; 

0 


; CHANGE ANSWER BUFFER 



CZfv>EAO RX02 FMTR PROG MACYll 30(1046) 
CZRXFA.P11 20-SEP-Z8 10:48 

83 Z? 

8373 

8374 
83 7 S 
83’^6 
837 7 

8378 

8379 


F 6 

?0-SEP-78 10:48 PAGE 69-10 
MODULE U.OPRANS - SETUP £ GET 


.S8TTL TTY ENTRY SU8R0UTINE 


OPERATOR ANSWERS 


SEQ 0070 


8381 

838? 


THIS SUBROUTINE IS USED BY THE TEST CONDITION ENTRY ROUTINE TO READ 
THE RESPONSE ENTERED AT THE TTY AND CHECK THEM FOR LEGALITY AND LIMITS, 
ALL RESPONSE MUST BE TYPED IN OCTAL (0 - 7) AND MUST FALL WITHIN THE 
LIMITS SET BY THE CALLING ROUTINE. IF AN ENTRY IS ILLEGAL OR OUTSIDE 
THE LIMITS. A QUESTION MARK (?) IS TYPED AND THE RESPONSE MAY BE RE- 
ENTERED. ENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND MAY BE TERMIN- 
ATED AT less than six BY TYPING A CARRIAGE RETURN. 


8384 01?6S? 


8386 

8387 


8389 

8390 


01?660 
01?664 
0^?67? 
01 2674 
01 2700 


00S077 

OOSOOO 

004737 

1??737 

001005 

005737 

001446 


00056? 

013156 

00001 5 000526 

00056? 


TTRO: 


CLR 

CLR 

JSR 

CMP8 

6NE 

TST 

BEQ 


TEMPI 

RO 

PC.TTIN 
^15. TIB 
TTR1 
TEMPI 
TTR5 


CLEAR FIRST CHARACTER FLAG 

GO READ CHARACTER 
SEE IF CR 
ir not, 8R 

SEE IF FIRST CHARACTER 
IF SO. 8R 


8391 

01?70? 

000137 

012774 



JMP 

TTR2 

ELSE. GO LOAD VALUE 

839? 

01?706 

122737 

000060 

000526 

TTR1 : 

CMP8 

^60, TIB 

SEE IF CHAR IS LESS THAN 0 

8 793 

01?714 

101402 




BIOS 

TTR1A 

IF not. 6R 

8394 

01?716 

000137 

013020 



JMP 

tiner 

ELSE. GO TO ERROR 

8395 

01 2722 

122737 

000070 

000526 

TTR1A: 

CMP8 

#70. TIB 

SEE IF CHAR IS GREATER THAN ^ 

: 8396 

0l?730 

101002 




8Hl 

TTR16 

IF not, br 

8397 

01?73? 

000137 

013020 



JMP 

TINER 

ELSE. GO TO ERROR 

8398 

01?736 

005237 

000562 


TTR18: 

INC 

TEMPI 

SET FIRST CHARACTER FLAG 

8399 

01?74? 

000241 




ClC 



8400 

C1?744 

006100 




ROL 

RO 


8401 

012746 

000241 




Cl C 



840? 

012750 

006100 




ROl 

RO 

:SHIFT 3 LEFT 

8403 

01275? 

000241 




CLC 



8404 

012754 

006100 




ROL 

RO 


8405 

012756 

042737 

177770 

000526 


eic 

#177770.118 

STRIP ASCII 

8406 

012764 

053700 

000526 



BIS 

TIB.RO 

LOAD CHARACTER 

8407 

012770 

005301 




DEC 

R1 

SEE IF DONE 

8408 

012772 

001 332 




8NE 

TTRO 

IF not. br 

8409 

012774 

020002 



TTR2: 

CMP 

R0.R2 

SEE IF EXCEEDED MAXIMUM LIMIT 

.8410 

012776 

101402 




BLOS 

TTR5 

IF not. br 

841 1 

0^3000 

000137 

013020 



JMP 

TINER 

ELSE. GO TO ERROR 

841^ 

013004 

020300 



TTR5: 

CMP 

R3.R0 

SEE IF BELOW MINIMUM LIMIT 

8415 

013006 

101402 




BLOS 

TTR4 

IF not. BR 1 

8414 

013010 

000137 

013020 



JMP 

TINER 

ELSE. GO TO ERROR ! 

8415 

013014 

01001 V 



TTR4: 

MOV 

R0.(R5) 

LOAD VALUE 

8416 

013016 

000207 



TTR5: 

RTS 

PC 

EXIT 


8417 

8418 

8419 
84?0 
84?1 
84?? 


S8TTL tty entry ERROR SlBROUTlNE 


8425 

0^'020 

012704 

014202 

TINER: MOV 

#MSG7.R4 

8424 

013024 

004757 

01 52 52 

JSR 

PC. T TOUT 

8425 

015030 

1627-6 

000020 

SUB 

#20* (SP) 

0/ “V 

n 1 TA?/ 

000207 


RTS 

PC 


84? 7 


PRINT? 

RESET SP TO START OF VALUE ROUHNE 
REDO VALUE ENTRY 



G 6 

CZRXfAO RXO? FWTR prog MACVl' 50(1046) ?0-SEP-^S 10:48 PAGE 69-11 

rZRXEA.p’1 P0-SEP-Z8 10:48 T^Y ENTRY ERROR SlBROUTINE SfU 00Z1 


«428 


8429 


8450 


845’ 


8452 


845^ 


8454 


8455 


84 .56 


8437 

01 5056 

8458 

01 5042 

8459 

015044 

8440 

0^5050 

8441 

015056 

8442 

015060 

8445 

Cl 5064 

8444 

015066 

8445 

01 5074 

8446 

015076 

844 7 

015104 

8448 

013106 

8449 

015114 

8450 

013122 

8451 

015124 

8452 

015132 

8455 

015134 

8454 

015140 

8455 

015144 

8456 

015146 

8457 

015154 

8458 


8459 


8460 


8461 


8462 


8465 

015156 

8464 

015162 

8465 

O 15 I 66 

8466 

015172 

8467 

015176 

8468 

01 5200 

8469 

013206 

8470 

013212 

8471 

013214 

8472 

01 3222 

8475 

015250 

84 74 



1CS057 000550 

005000 

004757 015156 

122757 000052 

001005 

005257 000576 
000455 

122757 000015 
001004 

115757 0^2646 

CKX)425 

042757 OC0040 
125757 012650 

001411 

125757 012646 

001405 

012704 014202 

004757 013252 
000754 

113737 000526 
000207 


005077 165116 
005057 000526 
005277 165106 
105777 165102 
100575 

017737 165076 
105777 165072 
100375 

115777 000526 
042757 000200 
000207 


000526 

000526 

000530 

000526 

000526 

000526 

000530 


000526 


165064 

000526 


S8TTL tty answer ENTRY SUeROUTiNE 


.-this SlBROUTINE IS USED BY THE TEST CONDITION ENTRY ROUTINE TO 
.-READ THE RESPONSE ENTERED AT THE TTY AND CHECK THEW FOR LEGALITY. 

;ALL RESPONSES MUST BE EQUAL TO RETURN THE DEFAULT ANSWER. CHANGED ANSWER 
;0R A CARRIAGE RETURN. IF ENTRY IS 'LLEGAL A QUESTION MARK IS TYPED AND 
.•THE RESPONSE MAY BE REENTERED. 


TTAR: 

CLRB 

ANSWER 

CLEAR ANSWER 



C.R 

RO 




CALL 

TTIN 

GO READ A CHARACTER 
H "*L" 



CMP8 

#32. Tie 



6NE 

TTARI 

THEN 



INC 

STFlG 

SET START PROGRAM 



8R 

XTTAR 

8R TO END 
IF •'CR" 


TTAR i ; 

CMP8 

#15. Tie 



BNE 

T TAR2 

THEN 



Move 

ANSDEF.ANSWER 

SET DEFAULT ANSWER 



8R 

XTTAR 

8R TO END 


TTAR2: 

8IC 

#40. Tie 

CLEAR lower case BIT 



CMPB 

ANSCHG.TI8 

IF ANSWER NOT OK WITH 

change ans 


8EQ 

TTAR3 

THEN 



CMP8 

A^iSDEF.TIB 

IF ASNWER NOT OK WITH 

DEFAULT ANS 


8EQ 

TTAR3 

THEN 



MOV 

#MS67.R4 

SETUP MSG "?•’ 



CALL 

TTOUT 

PRINT MSG 



BR 

TTAR 

START OVER 


TTAR3: 

Move 

Tie. ANSWER 

SAVE ANSWER 


XTTAR: 

RETURN 


RETURN 



SBTTL tty READ SUeROUTINE 


TTIN: 
TTIN1 : 
TTIN2: 


CLR 

clr 

INC 

TST8 

8PL 

MOV 

TST8 

8PL 

M0V8 

8IC 

RTS 


aTKS 

TI8 

S)TKS 

STKS 

TTINl 

aTKB.TIB 

BTPS 

TT1N2 

TI8.aTPB 

#200. TIB 

PC 


.•STRIP OFF TOP BIT OF BYTE 



CZ^<xMO RXO 
A.Pl 1 


fMTR PROG 
PO-SEP-78 


MACYll 

10:A8 


H iS 

? 0 ( 1046 ) ? 0 -SEP -78 10:48 PAGE 69-12 

TTY ASCII OUTPUT SUBROUTINE 


SEO 007? 


84 76 

Q J ? 7 





.S8TTL 

TTY ^ 

ASCII OUTPUT 

SUBROUTINE 

Oh / / 

.84 78 





f 




84 79 

C’5?5> 

112457 

000524 


TTOUT: 

move 

(R4)>,T08 


8480 

015?56 

122757 

000043 

000524 



#43,T08 

;IF T08= 

8481 

O' 5?44 

001452 




BEQ 

TCEX 


848? 

015246 

122757 

000045 

000524 


criPB 

#45,TOe 

;IF rOB- 'T' 

8485 

0^5?54 

001403 




BEO 

TCRLE 


8484 

01 i?56 

0C4737 

015700 



JSR 

PC, TOG 


8485 

013?6? 

000763 




BR 

TTOUT 


8486 

015264 

112737 

000015 

000524 

TCRLF : 

Move 

#15,T08 

;SET T08= "CR” 

8487 

01527? 

004737 

01 3700 



JSR 

PC, TOG 


8488 

015276 

012703 

000001 



MOV 

#1 ,R3 


8489 

013502 

005037 

000524 


TCRLFA: 

CLR 

T08 


8490 

015506 

004757 

015700 



JSR 

PC, TOG 


8491 

013312 

005303 




DEC 

R3 


849? 

013314 

001372 




BNE 

TCRLE A 

;D0 fillers 

8493 

013316 

112737 

000012 

000524 


Move 

#12,T08 

;SET T08= ’lF“ 

8494 

013324 

004757 

015700 



JSR 

PC, TOG 


8495 

01 3530 

000740 




BR 

TTOUT 


8^96 

013552 

000207 



TCEX: 

RTS 

PC 

.•RETURN 

8497 





« 





CZRXE40 

RXO? FMTR ^ROG 

MACYl 1 

30(1046) 

20-SEP- 

“78 1 

CZRXEA.P 

'1 1 2C 

kSEP-78 

10:48 


octal output 

8499 





.S8TTL 

OCTAL 

8S00 







8501 







8502' 

Cl 3354 

012737 

000001 

01^570 

OCTPE: 

MOV 

8505 

01334? 

010304 




MOV 

8504 

013344 

000410 




BR 

8505 

013346 

005057 

013570 


OCTP: 

CLR 

8506 

01335? 

010304 



OCTPE 1 : 

MOV 

8507 

015354 

001004 




BNE 

8508 

013356 

004757 

015550 



JSR 

8509 

01356? 

0001 37 

01351? 



JMP 

8510 

013566 

05? 704 

100000 


OCTPO: 

BJT 

8511 

01357? 

001406 




BEQ 

851? 

013374 

012704 

000001 



MOV 

8515 

015400 

CK)4757 

013526 



JSR 

8514 

013404 

0001 57 

013416 



JMP 

851 5 

013410 

005004 



0CTP1; 

CLR 

8516 

01341? 

004737 

01 3526 



JSR 

851 7 

013416 

010304 



0CTP2: 

MOV 

8518 

015420 

006004 




ROR 

8519 

0154?? 

006004 




ROR 

8520 

0134?4 

006004 




ROR 

85? 1 

01 34?6 

006004 




ROR 

85?? 

013450 

000304 




SWAB 

85?3 

013432 

004737 

013526 



JSR 

85?4 

013456 

010304 




MOV 

8525 

013440 

006004 




ROR 

8526 

013442 

000304 




SWAB 

8527 

013444 

004757 

013526 



JSR 

8528 

015450 

010304 




MOV 

8529 

01545? 

006104 




ROL 

8530 

013454 

006104 




ROl 

8531 

013456 

000304 




SWAB 

8532 

015460 

004737 

013526 



JSR 

8533 

013464 

010504 




MOV 

8534 

013466 

006004 




ROR 

8535 

013470 

006004 




ROR 

8536 

013472 

006004 




ROR 

8537 

013474 

004737 

013526 



JSR 

8538 

013500 

005237 

013570 



INC 

8539 

013504 

010304 




MOV 

8540 

013506 

004737 

013526 



JSR 

8541 

013512 

012737 

000240 

000524 

0CTP3: 

MOV 

8542 

013520 

004737 

01 3700 



JSR 

8543 

013524 

000207 



OC TPX : 

RTS 


854A 




J 

CZRXEAO RXO? FMTR PROG I^CYll 30(1046) ?0-SEP-78 10:48 PAGE 69- 

C2RXEA.P11 20-SEP-78 10:48 OCTAL OUTPUT SUBROUTINE 


8546 







8547 

013526 

042704 

1 77770 

OCTPG: 

BJC 

#177770,R4 

8548 

013532 

001004 



BNE 

OCTPGO 

8549 

013554 

005737 

013570 


TST 

OFL 

8550 

013540 

001001 



BNE 

OCTPGO 

8551 

013542 

000207 



RTS 

PC 

8552 

013544 

005257 

013570 

OCTPGO: 

INC 

OFL 

8553 

013550 

052704 

000260 

0CTPG1 : 

BIS 

#260, R4 

8554 

013554 

010457 

000524 


NOV 

R4,T0e 

8555 

013560 

004737 

015700 


JSR 

PC, TOG 

8556 

015564 

010304 



NOV 

R3,R4 

8557 

013566 

000207 


OCTPGX: 

RTS 

PC 

8558 




0 



8559 

015570 

000000 


OF L : 

0 


8560 




• 




SEQ 007 A 


/FIRST CHAR FLAG 



SEQ 0075 


K 6 

CZ^XEAO RXO? fMTR PROG MACYll 50(1046) 20-SEP-78 10:48 PAGE 69-15 

CZRXEA.Pn 20-SEP-78 10:48 DATA CHARACTER OUTPUT SUBROUTINE 


aS6? 

8565 

8564 

8565 

8566 

8567 

8568 

8569 

8570 

8571 
857? 
8575 
c 574 

8575 

8576 

8577 

8578 

8579 

8580 

8581 
858? 

8583 

8584 

8585 

8586 

8587 

8588 

8589 

8590 

8591 
859? 

8593 

8594 

8595 

8596 

8597 

8598 

8599 

8600 
8601 


.S8TTL DATA CHARACTER OUTPUT SUBROUTINE 


01357? 

005057 

0005?4 


# 

DOUT: 

CLR 

Toe 


013576 

01 ?704 

000010 



NOV 

A10.R4 

;SET NUMBER TO PRIN^ 

01360? 

110337 

000534 



N0V8 

R3,T0e 


013606 

105777 

16447? 


D0UT1 : 

TST8 

5>TPS 


01561? 

100375 




BPL 

D0UT1 


015614 

1 3?737 

000300 

000534 


81 T8 

#300, TOe 


0156?? 

001404 




BEQ 

DOUT? 


0156?4 

01?777 

000061 

164454 


NOV 

#061 , aTP8 


01563? 

000403 




BR 

D0UT3 


015634 

01?777 

000060 

164444 

D0UT3: 

NOV 

#060,aTPB 


01364? 

006137 

000534 


DOUT 3: 

ROL 

T08 


015646 

005304 




DEC 

R4 


013650 

001356 




BNE 

D0UT1 


01365? 

000?07 




RTS 

PC 


013654 

01 3703 

000566 


DOUTD: 

NOV 

TENP3,R3 


013660 

000303 




SWA8 

R3 


01366? 

004737 

013573 



JSR 

PC, DOUT 


013666 

013703 

000566 



NOV 

TENP3,R3 


01367? 

004737 

01357? 



JSR 

PC, DOUT 


015676 

000?07 




RTS 

PC 






.S8TTL 

TTY OUTPUT 


013700 

1 3?737 

000040 

000431 

TOG: 

81 T8 

#APTCSP,SENVM 

;SEE IE CONSOLE SUPPRESS MODE 

013706 

001014 




8NE 

TEX 

;JF SO, 8R 

013710 

105777 

164370 



TST8 

aTPS 


013714 

100371 




BPL 

TOG 


013716 

113777 

000534 

164363 


N0V8 

Toe,aTPB 


0137?4 

005737 

000533 



TST 

TTWAJT 

;IS TTY WAIT FLAG SET 

013730 

001403 




BEG 

TEX 

; THEN 

01373? 

105777 

164346 


1$: 

TST8 

aTPS 

.•WAIT FOR CHARTER 

013736 

100375 




8PL 

1$ 

;T0 BE PRINTED 

013740 

000207 



TEX; 

RTS 

PC 




SEQ 0076 


L 6 

CZRXEAO RX02 FMTR PROG MACYll 30n0A6) ?0~SEP~78 10:48 PAGE 69-16 

CZRXEA.Pn 20-SEP-78 10:48 MESSAGE T/sBlE 


860 S 
8o04 
mOS 
8606 

8607 

8608 

8609 

8610 
8611 
8612 

8613 

8614 

8615 

8616 
8,617 
8618 

8619 

8620 
8621 
8622 

8623 

8624 

8625 

8626 

8627 

8628 

8629 

8630 

8631 

8632 

8633 
863 -. 

8635 

8636 

8637 

8638 

8639 

8640 

8641 

8642 
8645 

8644 

8645 

8646 

8647 

8648 

8649 

8650 

8651 

8652 

8653 

8654 

8655 

8656 

8657 

8658 


.S8TTL MESSAGE TABLE 


01374? 
014002 
014040 
014072 
CHI 27 
014164 
014202 
014206 
014246 
014272 
014326 
014367 
014411 
014452 
014506 
014526 
014547 
014556 
014564 
0145T0 
014610 
014701 
014715 
014722 
014736 
014752 
014776 
01 5031 
015055 
01 5077 
015121 
015140 
015210 
015217 
015223 
015244 
015300 
015404 
015510 
015615 
01 5702 
01 5723 
015726 
015752 
016045 
016125 
016206 
016271 
016357 
016422 
016425 
016436 
016475 


020045 020040 

051445 043117 

022445 055103 

020045 020040 

045 020040 

042445 042116 

037440 021440 
047045 020117 

022445 047506 

020045 044440 

052445 044516 

045 042101 

045 020040 

022445 047506 

020040 C51124 

020040 042523 
104 044522 

044523 042504 

020040 021440 
020045 051103 

020045 044124 

045 052502 

045 041556 

020045 054122 

020045 054122 

020040 046055 

042445 051122 

045 042040 

045 052040 

045 020040 

040 026440 
026445 051076 

020045 020040 

045 037040 

040 026440 
042445 052116 

052045 044510 

047445 020116 

047445 042520 

045 046101 

052055 046511 

045 021440 

044045 046105 

004445 047111 

045 042523 
045 042526 

043045 047514 

045 051511 

045 047516 

004445 Oil 
045 054523 

047045 020117 

040 037055 


05412? MSGl: 
053524 MSG2: 
054122 MSG3: 
020040 l^SG4 : 
020040 MSG5 : 
047440 MSG6: 
MSG7: 
054523 MSG8: 
046522 MSG9: 
052116 MSG 10 
020124 MSG11 
051104 MSG12 
054105 MSG13 
046522 MSG 14 
041501 MSG 15 
052103 MSG 16 
042526 MSG 17 
021472 MSG20 
MSG21 
020103 MSG22 
051511 MSG23 
020123 MSG24 
021440 MS625 

051503 MSG26 
051505 MSG27 
047517 MSG28 
051117 MSG29 
047117 MS630 
020122 MS631 
020040 MS632 
020076 MS633 
046505 MS634 

020055 MS635 

043 MSG36 
040510 MSG37 
051105 MSG38 
020123 MSG39 
047502 MSG40 
040522 
020114 

020105 MSG41 
MS642 
037520 MSG43 
0521 1 1 MSG44 
020124 MSG45 
044522 MSG46 
050120 MS647 
040440 MSG48 
051440 MSG49 
MSG50 
052123 MSG51 
047504 MSG52 
051104 MSG53 


.ASCII /X RXCS RXDB CMDX »/ 

.ASCII /XSOfTWARE SWITCH REG (OCT) = #/ 

.ASCII /XXCZRXEAO RX02 FMTR PR06U/ 

.ASCII /X RXCS ADDRESS (OCT) = #/ 

.ASCII /X VECTOR (OCT) = #/ 

.ASCII /XEND OF PASS #/ 

ASCII / '^ tt / 

!aSCII fxm SYSTEM AVAILABLE TO FORMAT #/ 

.ASCII /xxFcmAT completed U/ 

.ASCII /X INTERRUPT DID NOT OCCUR 
.ASCII /ZUNIT NOT RESPONDING TO ADDRESS 
.ASCII /ZADDRESSING TEST #/ 

.ASCII /Z EXPECT RCVD ACTUALZ #/ 

.ASCII /ZZFORMAT DONE ON FOLLOWING »/ 

.ASCII / TRACK (OCT) =A/ 

.ASCII / SECTOR (OCT) =#/ 

.ASCII /DRIVE:#/ 

.ASCII /SIDE:^/ 

.ASCII / #/ 

.ASCII /Z CRC ERROR -> #/ 

.ASCII /Z THIS SYSTEM NOT CAPABLE OF DOUBLE DENSITY OPERATIONS! #/ 

.ASCII /Z8US TRAP: #/ 

.ASCII /Z*C #/ 

.ASCII /X RXCS ERR #/ 

.ASCII /Z RXES ERR #/ 

.ASCII / -LOOPING ON ERR: #/ 

.ASCII /XERROR BIT SET AFTER INIT #/ 

.ASCII /Z DONE BIT NOT SET #/ 

.ASCII /Z TR BIT NOT SET ft/ 

.ASCII /Z = ft/ 

.ASCII / -> DROPPED ft/ 

.ASCII /Z->REMOVE XXDP MEDIA FROM THIS SYSTEM! !#/ 

.ASCII /Z - ft/ 

.ASCII /Z >#/ 

.ASCII / -HALT ON ERR: ft/ 

.ASCII /XENTER CONDITIONS IN OCTAL ft/ 

.ASCII /ZTHIS PROGRAM FORMATS DISKETTES TO SINGLE OR DOUBLE (DEFAULT) DENSITY/ 
.ASCII /ZON BOTH DRIVES OF A FLOPPY DISK SUBSYSTEM CAPABLE OF DOUBLE DENSITY/ 
.ASCII /ZOPERATIONS. A CRC VERIFY IS PERFORMED ON TRACKS: 0 & 76 (DEFAULT) OR/ 

.ASCII /ZALL TRACKS OF THE FORMATTED DISKETTE. IF SELECTED. Z#/ 

.ASCII /-TIME OUT ERROR #/ 

.ASCII /Z ft/ 

.ASCII /XHELP? (Y OR N) N ft/ 

.ASCII /X INITIALIZE NOT DONE - RUN DIAGNOSTICS UNLESS OBVIOUS ERR#/ 

.ASCII /ZSET DISKETTE TO SINGLE DENSITY? (Y OR N) N ft/ 

.ASCII /XVERIFV DISKETTE CRC (ALL TRACKS)? (Y OR N) N #/ 

.ASCII /ZFLOPPY DISK SYSTEM: 0 ADDRESS CHANGE? (Y OR N) N #/ 

.ASCII /ZIS ANOTHER FLOPPY DISK SYSTEM AVAILABLE? (Y OR N) N ft/ 

.ASCII /ZNO SYSTEM AVAILABLE TO FORMATTER ft/ 

.ASCII /X / 

.ASCII /ZSYSTEM:#/ 

.ASCII /ZNO DONE BIT AFTER INITIALIZE ft/ 

.ASCII / ->DROPPED FROM FORMATTERZ#/ 



C2RXEA0 RX02 
CZRXEA.Pn 


FMTR PROG 
20-SEP-78 


MAC Y 11 
10:48 


8659 

8660 
8661 


8663 

8664 

8665 

8666 

8667 

8668 

8669 

8670 

8671 

8672 

8673 

8674 

8675 

8676 

8677 
86 ' 8 
8h79 
8680 
8681 
8682 

8683 

8684 

8685 

8686 

8687 

8688 

8689 

8690 

8691 

8692 

8693 

8694 

8695 

8696 

8697 

8698 

8699 

8700 

8701 


016530 

016613 

016703 

016766 

017065 

017117 

017221 


017254 
017311 
01 7346 
017417 


004445 041501 

045 042011 

045 047504 
051045 046505 
045 026455 

045 047506 
045 052123 


30(1046) 


046040 

044522 

054440 

053117 

020076 

046522 

051101 


20-SEP-78 10:48 

MESSAGE TABLE 


M 6 

PAGE 69-17 


SEO 0077 


MSG54 
MSG55 
MS656 
MSGS 7 
MSG58 
MSG59 


.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 


/% AC LOW ERROR - IS FLOPPY DISK SYSTEM POWERED UP?^/ 

n DRIVE NOT READY - IS DISKETTE IN DRIVE & DOOR CL0SED?4^/ 

/%D0 YOU WANT TO FORMAT MORE DISKETTES? (Y OR N) N »/ 

/^REMOVE FORMATTED DISKETTES & INSERT DISKETTES TO BE FORMATTED^/ 
/X— > TYPE '’CR*’ WHEN READY/f/ 

/XFORMATTER DONE-RESTART MONITOR OR UPDATE PROGRAM— > T YPE CTRL C TO/ 
/XSTART THIS PROGRAM AGAIN #/ 


.S8TTL TEST HEADERS 


022445 037055 

045 026445 

022445 037055 
045 026445 

017446 


042522 

051476 

042522 

037055 


MS6CD3 

MS6CD4 

MSGCD5 

MSGLP: 


.ASCII 

.ASCII 

.ASCII 

.ASCII 

.EVEN 


/XX->RE AD SECTOR COMMAND ERR ft/ 

/XX->SET DENSITY COMMAND ERR ft/ 

/XX->READ MAINTENANCE STATUS COMMAND ERR ft/ 
/XX— >LOOP MODULE-ERR ft/ 


.S8TTL ERROR CODE STORAGE 


017446 

000 

XER: 

.BYTE 

0 

ERR CODE - EXTENDED 

017447 

000 


.BYTE 

0 


017450 

000 


.BYTE 

0 


017451 

000 


.BYTE 

0 


017452 

000 


.BYTE 

0 


017453 

000 


.8YTE 

0 


017454 

000 


.BYTE 

0 


017455 

000 


.8YTE 

0 




9 

.S8TTL 

: ■ ( 

PATCH AREA j 

017456 

000000 

#' 

PATCH: 

0 



01 7660 


.^.+200 


017660 

000000 

LAS TAD: 

0 


•LAST ADDRESS NOT TO EXCEED 17776 


000001 


.END 
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ABASE = 177170 6127# 

'ACDW1 = 000000 6128 

ACDU2 = 000000 6128 

lACi.uW = 000010 5988# 

|ACPt)()p= C>00000 6128 

^ADDwO = 000000 6128 

AD0W1 =: 000000 6128 

ADDWlO= 000000 6128 

ADDW11= 000000 6128 

ADDW12= 000000 6128 

ADDW13= 000000 6128 

: ADDW14= 000000 6128 

ADDW15= 000000 6128 

ADDW2 = 000000 61 28 

! A15DW? = 000000 6128 

ADDW4 = 000000 6128 

A0DW5 = 000000 6128 

ADDW6 = 000000 6128 

! A0DW7 s 000000 6128 

; Allows = 000000 6128 

ADC)W9 = 000000 6128 

ADfVCr= 000000 6128 

ADfV.I = 000000 6128 

Ai)RS 005104 7088* 

AiMST C02204 6211* 

APrSTX 002144 6455# 

ADI 002254 6440# 

AD/ <002554 : 6446 

AiNv = 000000 6128 

AtNVM = 000000 6128 

A^ATAt.= 000000 6128 

AmDRI^ 000000 6128 

AmOR2= 000000 6128 

AmDR3= 000000 6128 

AmOR4= 000000 6128 

Amwsi= 000000 6128 

A)W152= 000000 6128 

AWIS5= • -XOGO 6128 

A/WIS43 \)0000 6128 

T^JiGAD: JOOOvO 6128 

'A*^;.aG= } 0000 -: 6i 28 

AT^HGfY- OX)OOC 6128 

000000 6128 
Awryp2= 000000 61 28 

AAlTYPSa 000000 6128 

A"1TYP4* 000000 6128 

ANSCHG 012650 8364* 

AWSOEE 012646 8365* 

answer 000550 6149# 

APASS = 000000 6128 

APRIOR= 000000 6128 

APrrSP= 000040 6000# 

APTENV* 000001 5999# 

APTfR 012570 8340 

ASWREG« 000401 6125# 

ATf STN= 000000 6128 


CROSS REFERENCE TABLE - 

6128 


6684 


7096* 7104* 7114* 7119* 

6423* 6435# 

6452 

6453# 


8369# 

8449 


8368# 

8446 

8451 

6328 

6335 

6343 

8591 

6197 

8351# 

6128 

624 5 

8551 


N 6 
70 

USER SYMBOLS 


SCO 0078 


7124* 


6565 


71 53* 7140# 7158* 


7878 8437* 8446* 8456* 
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CROSS REFERENCE 

TABLE - 

AUNIT = 

000000 

6128 





AUSWR = 

000000 

6128 





f AVECT1= 

000264 

6126# 

6128 




1 AVECT2= 

000000 

6128 





BADWRD 

011540 

8005* 

8023 

8046* 

8064 

8150 

BAEMPT 

005120 

7102 

7146# 




SAFILL 

005116 

7100 

7145# 




S8A1 1 

001 770 

6595# 

6425 




8A251 

007076 

7696# 

7722 




BB30 

007742 

7882# 

7884 




BC13 

002470 

6505# 

6505 




6C20 

002622 

6584# 

6612 




BC22 

003332 

6771# 

6802 




BC231 

007126 

7702# 

7719 




BOAUDL 

010142 

7944# 

7952 




BD6UDL 

010146 

7945# 

7948 




Bf:00 

•DOT ^06 

6234 

6236# 

6266 



BE 00 

00U16 

6238# 

6240 




BITCNT 

011526 

8164^ 

8169 

8176* 

8179 

8181* 

3ITLIM 

011532 

8009^ 

8050* 

8179 

8195# 


61 TMSG 

011530 

8H8* 

8174 

8185* 

8192# 


81 TOFF 

Cl 1554 

8008* 

8049* 

8155 

8157* 

8162 

bitpas 

011524 

8147* 

8182 

8184* 

8190# 


81^0 = 

ooc«ooi 

5994 

6042# 




8:^00 = 

000001 

6042# 





81 T01 = 

000002 

6042# 





BIT02 = 

000004 

6042# 





8IT03 = 

000010 

6042# 





8IT04 = 

000020 

6042# 





8IT05 = 

000040 

6042# 





8IT06 = 

000100 

6042# 





8IT07 = 

000200 

6042# 





8IT08 = 

000400 

6042# 





BIT09 = 

001000 

6042# 





SIT1 = 

000002 

604 2# 





ei'^10 = 

002000 

6042# 





emi = 

004000 

6042# 





8nT2 = 

010000 

6042# 





BJT13 = 

020000 

6042# 

6447 

7966 



8iT14 = 

040000 

6042# 





3IT15 = 

100000 

6042# 





8IT2 - 

000004 

6042# 





8IT3 = 

000010 

6042# 





BIT4 = 

000020 

5992 

6042# 




'bits = 

000040 

5993 

6042# 




:3iT6 = 

000100 

6042# 

6214 

7889 

8319 


3IT7 = 

000200 

6042# 





BITS = 

000400 

6005 

6042# 

6231 



BIT9 = 

001000 

6042# 





8PTVEC= 

000014 

6042# 





BSINIT 

012262 

6452 

7540 

7544 

8269# 


BSIMTX 

012400 

8291# 





BTRP 

000320 

6118# 

6215* 

6221* 

6437* 

6453* 

BTRPFL 

000570 

6165# 

6192* 

6421* 

6424 

6445 

BTRP2 

000322 

6119# 

6216* 

6222* 

6438* 

64S* 

CKBITS 

011514 

8029 

8070 

8147# 




B 7 
70-1 

USER SYMBOLS 


SEQ 0079 


8151 8196^ 


8191# 

8194# 


8328* 
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CROSS REFERENCE 

TABLE - 

C<SYAD 

002422 

6558* 

:,568* 

6495# 



CMD 

000542 

6154^ 

6774 

6780 

6784 

6794 



7066 

7077 

7535* 

7536 

7991 

CMDTBL 

003772 

6861 

6878 

6899# 



CP'PWRD 

0115% : 

8006* 

8047* 

8149 

8195# 


CMS6TB 

011544 

8007 

8201/7 




CMSG10 

011704 

8207 

8233/7 




CMSG11 

OT 1 71 5 

8208 

82347? 




CMSG12 

011750 

8209 

8210 

8235# 



CMSG15 

011770 

8212 

8236A 




CMSG4 

011624 

8201 

8227/7 




CMSG5 

011634 

8202 

8228/7 




CMSG6 

011641 

8203 

8229/7 




CMSG7 

011662 

8204 

8230/7 




CMSGS 

011665 

8205 

8231/7 




CMSG9 

011675 

8206 

8232/7 




CR = 

00001 5 

604 





CRCALL = 

000200 

600 /Y 

6345 

6347 

6979 


CRCERR= 

000001 

599.A 

7268 




CRLF = 

000200 

604 2 A 





CSR 

000534 

615 /f 





CSRADR 

010230 

666 

71 53* 

7945 

7961# 


CSRfHK 

010404 

72.^2* 

7248* 

7262* 

7537* 

8001# 

CSRCKX 

010616 

80 51 

8035/7 




C SRCMP 

000546 

7 1566^ 

7227* 

7228* 

7505* 

7506* 

CSRMSK 

000544 

6155/Y 

7229* 

7510* 

8002 


OBGFLG 

000516 

6088* 

6144/7 

6190* 

6370 

7529 

DBLDEN= 

000400 

6005/Sf 

6233 




DC 20 

002762 

661 1/Y 





DDISP = 

177570 

6042/^ 





DELAY 

010136 

6670* 

71 55 

7943# 



DENBIT= 

•000400 

5985/Y 

6337 

6339 

7517 


OEN€RR= 

000020 

5992/7 





DENS 

000506 

6140/7 

6233* 

6235* 

6887 


DNBIT - 

000040 

5983/S7 

6668 

6672 

7086 

7227 

DOUT 

015572 

8566A 

8583 

8585 



D«X/TD 

013654 

8581/7 





Doun 

015606 

8569/7 

8570 

8578 



D0UT2 

013654 

8572 

8575/7 




D0ur3 

013642 

8574 

8576/7 




DRIVE 

011224 

7345* 

7353* 

7356* 

7363* 

7371* 



8121/7 





DRIVE 1 = 

000400 

5991/7 

7516 




DROPAV 

006264 

7432* 

7441* 

7451* 

7455 

7462 

DROPDV 

006056 

7335* 

7346* 

7349* 

7364* 

7367* 

DRVAVL 

006040 

7242* 

7432/7 




DRVCNT 

007260 

7697* 

7710 

7712 

7716* 

7718 

ORVOENs 

000040 

5993/7 

7519 




DRVDRP 

005530 

7239* 

7255* 

7272* 

7335# 


ORVPTR 

007262 

7696* 

7703 

7717* 

7726# 


DRVR 

004402 

6810* 

7064# 




DRVRDY= 

000200 

5987/7 

7436 

7446 



DRV! = 

000020 

5996/7 

6780 

7338 

7434 

7514 

DSWR ~ 

177570 

6042/7 





DVSCDN 

004366 

6972* 

6973* 

6981 

6995* 

7001 * 

OVSEC 

004372 

6976* 

6977* 

6994* 

6997* 

6998 


C 7 
70-2 

USER SYMBOLS 


SEQ 0080 


6803 6805 6861* 6862 6878* 6879 6887* 


7509* 8003 8006 8019 


7505 

7970 





7374* 

7440* 

7450* 

7710* 

7711* 

8092* 8094 » 

7467# 

7375 

7379 

7383# 




7725# 






8090 






7032# 

6999 

7002* 

7007* 

7018* 

7019 

7034# 


7065 


8112 
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DVTKDN 

004362 

6970* 

DVTRK 

004376 

6974* 

EAOO 

001256 

6194 

EA10 

001520 

6329 

EA13 

002510 

6497 

EA21 

003246 

6678 

EA221 

003746 

6866 

EA223 

004450 

7071 

EA225 

005522 

7241 

EA232 

007330 

7752 

EA233 

007466 

7784 

E610 

001562 

6358 

EB11 

002136 

6400 

EB20 

002774 

6583 

EB2253 

006374 

7518 

EB231 

007242 

7700 

EC 00 

001076 

6203 

EC10 

001624 

6346 

EC222 

004202 

6988 

EC 23 

007056 

7624 

EDOO 

C01212 

6218 

Ei'10 

001662 

6355 

ED21 

003210 

6688 

ED222 

004174 

6992 

ED231 

007222 

770A 

EE221 

003726 

6875 

EE222 

004274 

7003 

EE251 

007162 

7708 

£F20 

002752 

6598 

EGOO 

001350 

6244 

EG222 

004342 

^01 5 

EG225 

005504 

7269 

EH2231 

005000 

7106 

EH2252 

006260 

7456 

EiOO 

001444 

6262 

EK2231 

004646 

7101 

e/^SGTB 

011574 

8048 

E/^SGO 

on 777 

8214 

Ef^SGI 

O' 2005 

8215 

ei^sGio 

012154 

8224 

EWSG11 

012156 

8225 

e/^SG2 

012014 

8216 

£MSG3 

012026 

8217 

EMSG4 

012035 

8218 

EWSG5 

012051 

8219 

Ef^SG6 

012066 

8220 

eMSG7 

012103 

8221 

EMSG8 

012115 

8222 

EWSG9 

012125 

8223 

EWTVEC= 

000030 

6042# 

EM22 

003550 

6808 

ENOFTB 

000634 

6183# 

ENDTSH 

011130 

8084 

ENDOO 

001452 

6266# 

EN0223 

005100 

7121 

ERRBITr 

100000 

5995# 


CROSS REFERENCE TABLE - 


6971 * 

6983 

6985* 

6993* 

6975* 

6986* 

6989 

6990* 

6215 

6332# 

6230# 



6499 

6507# 



6692 

6696# 



6872 

6881 

6884 

6887# 

7073# 

7243 

7255 

7257 

7259 

7754# 

7792 

7794 

7800# 



6340 ^ 

6421 ^ 

6614# 

7520# 

7720# 

6205# 

6348# 

6W5# 

7638 7640 7645 7647 

6221# 

6357# 

6690# 

6994# 

7716# 

6883# 

7005 7008# 

7710# 

6600 6607 6609# 

6246# 

7018# 

7271# 

7121# 

7464# 

6264# 

7103# 

8214# 

8238# 

8239# 

8248# 

8249# 

8240# 

8241# 

8242# 

8243# 

8244# 

8245# 

8246# 

8247# 

6810# 

6237 

8097# 

7126 7130 7135# 

6679 


0 7 
70-3 

USER Sy#*B0LS 


SEO 0081 


7010 

6991 


7267 


7654 


7012* 7017* 7030# 

7008 7036# 


7274# 


7656# 


1 

I 
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CROSS REFERENCE 

TABLE - 

ERRCHK 

0051 64 

6767* 

7219# 




ERRFLG 

005526 

7220* 

7233* 

7235* 

7236 

7249* 

ERRSET 

012240 

6452 

6677 

6690 

7238 

7254 

ERRTYP 

000604 

6171# 





ERRVEC= 

000004 

6042# 





ERSETX 

012260 

8263# 





ERSTAT 

005106 

7129* 

7141# 




ESR 

000536 

61 52# 





ESRCHK 

010624 

7234* 

7250* 

7264* 

7541* 

80^2# 

ESRCKX 

011054 

8072 

8076# 




ESRCMP 

000552 

61 58# 

7230* 

7513* 

7516* 

7519* 

ESRMSIC 

000550 

6157# 

7231* 

7520* 

8043 


a TANS 

012624 

6327* 

6334* 

6342* 

6351* 

6362* 

(I TCMD 

003564 

6773* 

6855# 




GKMD 

003556 

6764* 

6771 

6772* 

6788* 

6790* 

GTSWR 

002.346 

6372* 

6462# 




GTSYAD 

001 766 

6357* 

6367* 

6394# 



MDRFLG 

000602 

6170# 

7219* 

7533* 

8083 

LTS 

GO 

O 

oo 

H! ~ 

C0001 1 

6042# 





lAOO 

001020 

6195# 





;aio 

001500 

6328# 





JA13 

002424 

6496# 





IA20 

002550 

6573# 





;a21 

003060 

6672# 





IA22 

003324 

6769# 





IA221 

003624 

6865# 





IA222 

004104 

6979# 





IA223 

004424 

7068# 





IA225 

005210 

7224# 





IA2251 

005544 

7338# 





IA2252 

006050 

7454# 





IA2253 

006340 

7514# 





IA25 

006572 

7608# 





IA252 

007304 

7749# 





IA253 

007344 

7783# 





IA50 

007712 

7878# 





1800 

001054 

6197# 





1610 

001534 

6335# 





1811 

002012 

6399# 





1815 

0024 54 

6498# 





1620 

002600 

6574 

6578# 




1821 

005120 

6673 

6679# 




IS221 

003642 

6868# 





18222 

004114 

6981# 





182231 

004552 

7090# 





18225 

005300 

7236# 





182251 

005554 

7340# 





182252 

006060 

74 36# 





182253 

006356 

7515 

7517# 




J823 

006620 

7609 

7611 

7614# 



IB251 

007114 

7699# 





18233 

007352 

7785^ 





I COO 

001044 

6199# 





ICW 

001576 

6543# 





IC21 

003150 

6684# 





I (221 

003654 

6871# 
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SEQ 0082 


7251* 

7271 


8044 

7877* 

6798* 

8331 


7252 7263* 7265* 7266 7277/f 

7540 7544 82604f 


8047 8060 

8363# 

6800* 6801 6813# 

8533* 
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o 

00 


CROSS REFERENCE TABLE — USER 

SYMBOLS 


S6Q 0083 

\C??2 

0Ct412? 

6983a 






:c??5i 

OOA6ZO 

7091 

7107A 





IC?25 

005334 

7225 

72KUn 





:C2?51 

005564 

7342A 






:c?c^52 

006070 

7458A 







00^650 

7615 

7617 

7620# 




:c?53 

007420 

7786 

779Ztt 





:doo 

001170 

621 7 A 






lOTO 

001644 

6352A 






1020 

002624 

6579 

6581 

6585# 




1021 

003170 

6685 

668 7 A 





1022 

003350 

6 774 A 






10221 

0037-' 6 

6880A 






10222 

004162 

6991a 






102231 

004700 

7109A 






:0225 

005374 

7252A 






102251 

005632 

7350A 






102252 

006114 

74 57 

7439 

7442# 




1025 

006674 

7621 

7625A 





ID231 

007130 

7705A 






re 10 

001714 

6565A 






1620 

002646 

6590A 






:62i 

003216 

6680 

6691 A 





1622 

003374 

6780A 






16221 

003664 

6874A 






16222 

004224 

6999A 






162231 

005032 

7108 

7127A 





IE 225 

005462 

7266A 






162251 

005672 

7339 

7358A 





IE2252 

006134 

7455 

7446A 





1 125 

006704 

7627ft 






16251 

007140 

7705A 






:no 

001752 

6364 

6570A 





>'20 

002676 

6586 

6588 

6595 6597# 




>21 

003254 

6697A 






>22 

003404 

6782A 






>222 

004250 

7000 

7004A 





>225 

005422 

72A5 

72 5 8A 





>2251 

005702 

7360A 






>2252 

006144 

7AW 






>25 

006712 

7629A 






IGOO 

001 334 

624 3A 






IG20 

002722 

6602A 






IG22 

003414 

6 784 A 






IG222 

004304 

6980 

7010A 





IG225 

005470 

7268A 






IG2251 

005746 

7368A 






IG2252 

006166 

7i.i.7 

7449 

7452# 




IG23 

006722 

7631 A 






JHOO 

001406 

6253A 






IH20 

002634 

6587A 






IH22 

003424 

6786A 






IH2231 

004562 

7092A 






JH2251 

006000 

7543 

7548 

7355 7357 7561 7366 

7573 

7375# 


1M2252 

006204 

7445 

7445 

7453 7455# 




;h25 

007020 

7626 

7648# 
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1100 

001432 

6254 

1 1 20 

002706 

6599# 

1122 

003450 

6781 

: jOo 

001 262 

6231# 

: j22 

003460 

6794# 

1x22 

00 34 70 

6796# 

1x2231 

004620 

7098# 

Ii22 

003520 

6805# 

m22 

003536 

6807# 

INITCK 

005002 

65 72* 

IMTDN= 

000004 

5989# 

INiTDP 

005270 

6665* 

INITPG 

000514 

6145# 

INITTS 

004560 

6763* 

INTIV = 

000002 

6997 

IOTVEC= 

000020 

6042# 

LASTAD 

017660 

8698# 

IA221 

003636 

6864 

LA223 

004442 

7069 

LA232 

007522 

7750 

LA30 

007766 

7879 

L800 

001146 

6198 

tSIO 

001554 

6356 

l8221 

003734 

6869 

18222 

00^210 

6982 

l8225 

005526 

7237 

L82251 

005624 

7541 

LCOO 

001070 

6200 

LC10 

001616 

6344 

LC222 

004150 

6984 

LD10 

001660 

6355 

LD22 

003570 

6775 

LD2231 

005002 

7110 

L02251 

005662 

7351 

LE20 

002672 

6591 

LE2231 

005052 

7128 

LE2251 

005740 

7559 

LE25 

007012 

7628 

LE251 

007156 

7706 

LF 

000012 

6042# 

LF22 

003442 

6785 

LF23 

006766 

7650 

LG20 

002746 

6603 

LG222 

004530 

7011 

LG2251 

0C5774 

7369 

LG25 

006760 

7632 

LH2231 

004710 

7093 

LH23 

007052 

7649 

LI22 

003506 

6793 

UOO 

001302 

6252 

LK2231 

004640 

7099 

L(X)P 

006406 

7240* 

L(X)P1 

006446 

7536# 

LOOP? 

006520 

7539 

L00P3 

006564 

7543 

IPPRT 

012402 

8275 


(ROSS REFERENCE TABLE - 

626U 

6792 ^ 


6577^ 66634T 

6687 

6674' 6681^ 6693* 6697 

6241* 6609* 6763 6855 

6966 6969* 7027# 

7024# 


6867# 

7072# 

7753# 

7887# 

6214# 

6339# 

6885# 

6997# 

7242# 

7349# 

6204# 

6347# 

6989# 

6356# 

6779# 

7122# 

7356# 

6596# 

7131# 

7367# 

7646# 

7709# 

6790# 

7641# 

6608# 

7016# 

7374# 

7639# 

7111# 

7655# 

6800# 

6235# 

7102# 

7256* 7275* 7528# 

7540 7544 

7541# 

7545# 

8290* 8293# 


G 7 
70-6 

USER SV/^OLS 


SfU 0084 


6702# 


SEQ 0085 


H 7 
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. sitlg 

000520 

6145# 

6201 * 

6219* 

7915 


. SITRP 

001 200 

6215 

6219# 




^SGCD3 

oo 

W-nJ 

Usirsj 

7260 

8671# 




f^SGCDA 

7246 

8672# 




l^SGCDS 

01 7346 

7226 

8675# 




f^SGLP 

017^1 

7534 

8674# 




f^SGI 

013742 

7981 

8606# 




r^SGIO 

0U272 

7789 

7797 

8615# 



T'^SG' 1 

014326 

6449 

8616# 




MSGT? 

014367 

6436 

8617# 




MSGIS 

01441 1 

8017 

8058 

8618# 



f^SG14 

014452 

7694 

8619# 




r^.SGI 5 

014506 

8130 

8620# 




f^SG16 

014526 

8133 

8621# 




f^SGVZ 

014547 

8111 

8622# 




PSG2 

014002 

6462 

8607# 




r^*SG?0 

014556 

8116 

8625# 




MSG21 

014564 

7985 

7989 

8021 

8025 8062 

8066 8624# 

^SG?2 

014570 

8129 

8625# 




f«!SG?.3 

0K610 

6695 

8626# 




f'^SG24 

014701 

8336 

8627# 




MSG25 

014715 

8516 

8628# 




MSG26 

014722 

8013 

8629# 




f^SG27 

014736 

8054 

8630# 




PSG28 

014752 

8279 

8631# 




MSG29 

014776 

6683 

8632# 




MS63 

014040 

6195 

8608# 




MSG30 

015031 

7972 

8633# 




MSG31 

0^5055 

7975 

8634# 




l^SG32 

01 5077 

8635# 





I^SG33 

015121 

7380 

7463 

8636# 



,•^$034 

015140 

6501 

8637# 




MSG35 

015210 

8167 

8638# 




f^SG36 

015217 

8639# 





MSG37 

015223 

8284 

8640# 




f^SG38 

01 5244 

8641# 





f^SG39 

0^5300 

6330 

8642# 




yfSQA 

014072 

6402 

8609# 




MSG40 

01 5404 

8643# 





MSG41 

015702 

7790 

7798 

7977 

8646# 


?^SG42 

015723 

8647# 





/^SG43 

015726 

6325 

8648# 




N’SGAA 

O' 5752 

6689 

8649# 




VSSG45 

016045 

6332 

8650# 




MSG46 

016125 

6340 

8651# 




r^SG47 

016206 

6349 

8652# 




MSG48 

016271 

6560 

8653# 




MSG49 

016357 

6582 

8654# 




MSG5 

014127 

6411 

8610# 




MSG50 

016422 

8655# 





MSG51 

016425 

7745 

8102 

8656# 



MSG52 

016436 

6676 

8657# 




MSG55 

016475 

7754 

8658# 




.•^SGS4 

016530 

6686 

8659# 




MSG55 

016613 

7458 

8660# 




WSG56 

016703 

7876 

8661# 
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CROSS REFERENCE 

TABLE - 

f1SGS7 

016766 

7880 

8662# 




MSG58 

017065 

6502 

7881 

8663# 



MSG59 

01711 

7887 

8664# 




MSG6 

0U164 

6246 

8611# 




MSG7 

014202 

8211 

8423 

8453 

8612# 


MSG8 

014206 

T623 

8613# 




MSG9 

0142A6 

7637 

7644 

7653 

8614# 


N 

00001 1 

6007# 

6452# 

6677# 

6690# 

7238# 

NEWPRI 

010074 

7897* 

7905* 

7915* 

7917 

7920# 

NSMSG 

O^'^POO 

8185 

8251# 




0C1P 

01 :.346 

6250 

6405 

6414 

7748* 

7992 

OCTPE 

013334 

6465 

7984 

7988 

8020 

8024 

OCT PEI 

013352 

8506# 





OCTPG 

013526 

8513 

8516 

8523 

8527 

8532 

OCTPGX 

013566 

8557# 





OCTPGO 

013544 

8548 

8550 

8552# 



OCTPGI 

013550 

8508 

8553# 




OCTPX 

013524 

8543# 





OC TPO 

01 3366 

8504 

8507 

8510# 



oapi 

013410 

8511 

8515# 




OCTP2 

013416 

8514 

8517# 




OCTP3 

013F12 

8509 

8541# 




OFL 

013570 

8502* 

8505* 

8538* 

8549 

8552* 

OP I N T 

001456 

6223* 

6324# 




OTSYDN 

007676 

6245* 

7876# 




OUTCMD 

004524 

7079* 

7086# 




OUTSWD 

005124 

7089 

7097 

7105 

7115 

7120 

PATCH 

017456 

8696# 





PCNTR 

000522 

6146# 

6230* 

6249 

6251* 

6252 

P]RQ = 

1 77772 

6042# 





PI ROVE = 

000240 

6042# 





PR] HI 

010020 

7078* 

7897# 




PRILO 

010034 

7080* 

7905# 




PR T DRV 

011154 

7378* 

7461* 

7715* 

8096* 

8111# 

PRTKSC 

011232 

7270* 

8129# 




PRTSYS 

0111 32 

6401* 

6500* 

6675* 

6682* 

6694* 

PRO 

000000 

6042# 

7905 




PR1 = 

000040 

6042# 





PR2 = 

000100 

6042# 





PR3 = 

000140 

6042# 





PR4 = 

000200 

6042# 





PR5 = 

000240 

6042# 





PR6 = 

000300 

6042# 





PR7 = 

000340 

6042# 

6204 

6226 

6229 

7897 

PS 

1 77776 

6042# 





PSW = 

177776 

6042# 

6204* 

621 7* 

7917* 


PT5IDF 

011230 

7336* 

734 7* 

7354* 

7365* 

7372* 

PTSYST 

007062 

7634* 

7642* 

7651* 

7694# 


PWRVEC= 

000024 

6042# 





RDMNST= 

000012 

6003# 

7224 




RDSEC = 

000006 

6002# 

6807 

7258 



RDYl® 

010226 

6668* 

7086* 

7094* 

7103* 

7111* 

REGS 

000510 

6141# 

6397* 

6404 

6406 

6422 

REGSO 

000314 

6116# 

6212* 

6397 

6427* 

6498 

REGS1 

000316 

6117# 





R£SVEC = 

000010 

6042# 
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USER SyMBOtS 


SEO 0086 


7254# 

7271# 

7540# 

7544# 


8104* 

8028 

8113* 

8061 

oooo 

8132* 

8069 

8135* 8289* 8359 

8502# 

8537 

8540 

8547# 




8559 ^ 

7125 7134 7153# 


7377* 7457* 7459* 7701* 7788* 7796* 8089* 


7460* 7707* 7709* 8095* 8114 8123# 


8505# 


8102# 


f 

I: 


7118* 7122* 7131* 7154* 

6427 

7927 7928 


7156 


7945 


7954 


7960# 



SEO 0087 


J 7 
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RXCSAD 

000472 

61 54# 

6210* 

6212 

6422* 

6459 

6666* 

6667 

6672 

6679 

6691 

7088 

7153 

7156 



7927^ 

7985 

8001 

8027 










RKD6AD 

000474 

6155# 

6684 

6687 

7096 

7104 

7114 

7119 

7124 

7153 

7268 

7456 

7442 

7446 



7452 

7928* 

7929* 

7987 

8042 

8068 








RXIN1T= 

040000 

5997# 

6665 

6666 











RXINTO 

01 2404 

6095 

6208 

6225 

8299# 










RXINTI 

012412 

6099 

6228 

8506# 











RXVECT 

000476 

6156# 













RX28IT= 

004000 

5998# 

6691 

7228 

7506 










RYOlY 

010224 

7944 

7959# 












RYDX 

010222 

6669^ 

7943 

7958# 











SECADR 

005114 

7075* 

7112 

7144# 











SECTR 

000500 

6157# 

6998* 

7004 

7006* 

7019* 

7075 

7075 







SETOEN= 

000010 

6004# 

7068 

7244 











SE TMSG 

012222 

8148 

8252# 












SETPIX 

010072 

7916 

7918# 












Sf TPRI 

010050 

7898* 

7906* 

7915# 











SIDE 

011226 

7544* 

7352* 

7562* 

7570* 

7712* 

7715* 

7714* 

8117 

8122# 





S1DE1 = 

001000 

5986# 

6784 

6794 

7340 

7358 

7512 








SIDROY= 

000002 

5990# 

7442 

7452 











S sue AD 

010076 

6664* 

7064* 

7221* 

7433* 

7926# 









SSUCOF 

010126 

6396* 

8088* 

6426* 

6671 * 

6765* 

6768* 

6776* 

6779* 

6859* 

6978* 

7337* 

7698* 

7926* 

7936# 

S’ACX = 

001000 

6042# 













START 

001000 

6081 

6085 

6090 

6189# 

8318 









s^flg 

000576 

6168# 

8442* 












S’XLMT= 

1 77774 

6042# 













STSTBT 

006266 

7247* 

7261 * 

7505# 











sue 

'.'00610 

6175# 

6348* 

6365* 

6570* 

6575* 

6589* 

6601* 

7612* 

7618* 

7695* 

7720* 

7721 

7747 



7749 

7787* 

7795* 

7936 

8103 









SWR 

000504 

6139# 

6205* 

6231 

6324* 

6337* 

6339* 

6345* 

6347* 

6359* 

6569* 

6447 

6452 

6466* 



6569* 

6573 

6585 

6597 

6979 

7531 

7540 

7544 

7610 

7616 

7620 

7625 

7629 



7751 * 
8542 

7753* 

7966 

7979 

8010 

8015 

8051 

8056 

8269 

8272 

8277 

8282 

8329 

SWREG 

000324 

6120# 

6139 

6324 

6464 

6466 

6467 









su»0 = 000001 604?-<^ 

SWOO = 000001 6042X^ 

SuOl = 000002 6042/^ 

SW02 = 000004 604 2-<^ 

SW03 =000010 6042^ 

SW04 = 000020 6042^ 

SW05 = 000040 6042X^ 

SW06 = 000100 6042/^ 

SW07 = 000200 6042^ 

SW08 = 000400 60^2^ 

Su/09 = 001000 6042X^ 6452 7540 7544 8277 

SW1 = 000002 6042# 

SW10 = 002000 6042# 

SW11 = 004000 6042# 

SW12 = 010000 6042# 8272 

SW13 = 020000 6042# 8010 8051 

SW14 = 040000 6042# 7979 8015 8056 

SW15 = 100000 6042# 

SW2 = 000004 6042# 

SW3 = 000010 6042# 

SWA = 000020 6042# 
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TABLE — 

USER 

SYMBOLS 





SU5 = 

OOOOAO 

6042# 











SW6 = 

000100 

6042# 











SW7 = 

000200 

6001 

6042# 










SW8 = 

000400 

6042# 











SW9 = 

001000 

6042# 











SYS C HD 

002514 

6242* 

6567# 










SYSDRP 

007264 

7615* 

7619* 

7745# 









SYSDVR 

003272 

6594* 

6606* 

6763# 









SYSERR 

000606 

6172# 

7785 

7785 

7793 

7800* 

7819* 

7842* 

7953* 

8033 

8034* 

8074 

SYSFLG 

000574 

6167# 

6261 

6611 

7622* 

7633* 

7641* 

7650* 

7885* 

7888* 



SYSfISG 

000572 

6166# 

6615 

7623* 

7637* 

7644* 

7653* 






SYSTAT 

006570 

6610* 

7607# 










SYTMCK 

007542 

7639* 

7646* 

7655* 

7782# 








SVOTPT 

005762 

6857* 

6860 

6865* 

6876* 

6877 

6882* 

6885* 

6892# 




SYITPT 

005764 

6858* 

6895# 










SOAV 

000612 

6174# 

6571* 

6578 

6696* 

6699* 

6769 

6782 

6786 

6792 

6796 

7342 



7368 

7379* 

7438 

7444* 

7448 

7454* 

7462* 

7608 

7703 

7705 

7791* 

SOCI^ 

090622 

6178# 

8090 

6665* 

7065* 

7222 

7338 

7340 

7358 

7434 

7507 

7511 

7514 

S001DF 

005766 

6874 

6883* 

6886* 

6894# 








SODN 

000626 

6180# 

6587 

6777* 

7631 

7635* 

7648 

7652* 

7699 




S0D7WI 

005560 

6771* 

6814# 

6870 

6873* 

6888* 

6987* 

7014* 





SORDY 

000616 

61 76# 

6567* 

6590 

6592* 

8299* 







SOSEC 

011510 

7075* 

8134 

8140# 









SOTRK 

01 1 504 

7074* 

8131 

8138# 









SOUMLT 

000556 

6160# 

7070* 

7072* 

7816 








S1AV 

000614 

61 75# 

6576* 

6580 

7614 

7799* 







SI L71D 

000624 

61 79# 











S1CMDF 

005770 

6895# 











STDN 

000650 

6181# 

6599 

7627 

7636* 

7643* 







S1DVDN 

005562 

6815# 











S1RDY 

000620 

61 77# 

6568* 

6602 

6604* 

8506* 







SI SE C 

011312 

8141# 











SITRK 

01 1 306 

81 59# 











siumlt 

000560 

6161# 

7839 










TABADR 

01 1 542 

8007* 

8048* 

8171 

8197# 








T8irVE= 

000014 

6042# 











TCEX 

013552 

8481 

8496# 










TCRLF 

013264 

8483 

8486# 










TCRLFA 

01 5302 

8489# 

8492 










TEMPI 

000562 

6162# 

8384* 

8589 

8398* 








TEMP2 

000564 

6165# 











TEMP3 

000566 

6164# 

8581 

8584 









TEX 

015740 

8592 

8597 

8600# 









TE2231 

C05042 

7129# 











TIB 

000526 

6148# 

6504 

7883 

8313 

8387 

8392 

8395 

8405* 

8406 

8440 

8444 



8451 

8456 

8464* 

8468* 

8471 

8472* 






TIMER 

01 5020 

8394 

8397 

8411 

8414 

8423# 







TKB 

000302 

6107# 

8468 










TKS 

000300 

6106.* 

6214* 

7889* 

7890* 

8319* 

8320* 

8463* 

8465* 

8466 



IKVEC - 

000060 

6042# 











TMSGAD 

000600 

6169# 

6436* 

7226* 

7246* 

7260* 

7554* 

8086 

8354 




T06 

000524 

6147# 

6236 

7949* 

8479* 

8480 

8482 

8486* 

8489* 

8493* 

8541 * 

8554* 


8571 

8576* 

8595 









TOERBT 

010402 

7954* 

7970 

7995# 









TOG 

01 3700 

7950 

8484 

8487 

8490 

8494 

8542 

8555 

8591# 

8594 




SEO 0088 


8075* 


7350 7360 

7517 7535 


8AA8* 8A49 


8566* 8568* 


8591# 859A 



CZkKEAO 

RX02 FMTR PROG 

MACYll 

30(1046) 

20-SEP- 

78 10: 

48 PAGE 

rZRxEA.Pn 20-SEP-78 

10:48 


CROSS REFERENCE 

TABLE - 

TOPRT 

010232 

7955 

7966# 




TQPRTX 

010400 

7968 

7980 

7993# 



TPB 

000306 

6109# 

8471 w 

8573* 

8575* 

8595* 


000304 

6108# 

8469 

8569 

8593 

8598 

TPVEC = 

000064 

6042# 





TRACK 

000502 

6138# 

6989* 

7008* 

7013* 

7016* 

TRAP 

012474 

6437 

8528# 




TRAPVE= 

000034 

6042# 





TRAPX 

012566 

854 3 

8545# 




TRAP! 

012532 

8352 

8336# 




TRAP2 

012550 

8330 

8340# 




TRBIT = 

000200 

5984# 

7094 

7103 

7111 

7118 

TRK.ADR 

005112 

7076* 

7116 

7143# 



TRKSEC 

004016 

6809* 

6966# 




TRTVEC= 

000014 

6042# 





^ SHOCK 

011042 

7969 

8012* 

8053* 

8083# 

8271* 

TSTERR 

000554 

6159# 

8035* 

8076* 



TTAR 

0T3036 

8365* 

8437# 

8455 



tTARI 

013066 

8441 

8444# 




TTAR2 

013106 

8445 

8448# 




TTAR3 

013146 

8450 

8452 

8456# 



ttin 

013156 

6503* 

7882* 

8312* 

8386 

8439* 

TTIMT 

012420 

6074 

8312# 




ttini 

013172 

8466# 

8467 




TTIN2 

013206 

8469# 

8470 




TTITEG 

000632 

6182# 

8313* 

8314 



ttout 

013232 

6196 

6247 

6326* 

6331* 

6333* 



6502* 

6614* 

6676* 

6683* 

6686* 



7789* 

7790* 

7797* 

7798* 

7876* 



7990 

8014 

8018 

8022 

8026 



8129* 

8130* 

8133* 

8168 

8173 



8479# 

8485 

8495 



TTR 

012652 

6410 

6419 

6471 

8384# 


ttro 

012660 

8386# 

8408 





012706 

8388 

8392# 




ttria 

012722 

8393 

8395# 




ttrib 

012736 

8396 

8398# 




TTR2 

012774 

8391 

8409# 




TTR3 

013004 

8410 

8412# 




TTR4 

013014 

8413 

8415# 




TTR5 

013016 

8590 

8416# 




TTWAIT 

000532 

61 50# 

6248* 

6265* 

8596 


UAH 

002154 

6424# 





UA231 

007246 

7721# 





UC22 

003512 

6778 

6785 

6787 

6789 

6791 

UC231 

007232 

7718# 





VALWD 

0051 TO 

7132 

7142# 




VECT 

000512 

6142# 

6398* 

6413 

6415 

6420 

VECTO 

CX)0310 

6114# 

6224 

6398 

6428* 


VECT1 

000312 

6115# 

6227 




WATCHO 

007474 

65%* 

7806# 




WATCHl 

007572 

6608* 

7829# 




yATlNO 

007670 

6593* 

6766* 

7806 

7808* 

7848# 

WATJNl 

007672 

6605* 

7829 

7831* 

7849# 


WCNTWX 

007674 

7812 

7835 

7850# 



yCNTRO 

007566 

7809* 

7811* 

7812 

7814* 

7822# 


L 7 
70-11 

USER SyWBOLS 


SEO 0089 


7074 7076 


7122 7131 


8465# 


6541* 

6350* 

6361* 

6403 

6412 

6450 

6463 

6501* 

6689* 

6695* 

7380* 

7458* 

7463* 

7694* 

7746* 

7755* 

7880* 

7881* 

7887* 

7973 

7976 

7978 

7982 

7986 

8055 

8059 

8065 

8067 

8087 

8102* 

8111* 

8116* 

8175 

8280* 

8285* 

8316* 

8335 

8337 

8424 

84 54 ♦ 

6795 

6797 

6799 

6801# 






6428 



: ZRXEAO 

RXO? FMTR PROG 

MACY11 

30(1046) 

20-SEP- 

78 10: 

48 PAGE 

( ZRXEA.I 

PTl 20-SEP-78 

10:48 


CROSS REFERENCE 

TA8LE - 

WCNTR1 

00766A 

785?^ 

7834* 

7835 

7837* 

7845# 

WOCT 

OOS1?? 

7095 

7147# 




WDOT 

0005A0 

6155A 

7077* 

7087 

7090 

7092 

UMLTO 

007570 

7810* 

7815* 

7816 

7818* 

7823# 

UWLT1 

007666 

7853* 

7838* 

7839 

7841* 

7846# 

WRDS 

00510? 

7087* 

7095* 

7100* 

7102* 

7112* 

X = 

000001 

6006A 





XER 

01 7A46 

7125 

8681# 




XT TAR 

01 51 54 

8445 

8447 

8457# 



XUDL 

010??0 

7946 

7956# 




XLPTDV 

on??? 

8115 

8119# 




XWATO 

007564 

7815 

7817 

7820# 



XWAT1 

00766? 

7836 

7840 

7843# 



XI 0 

001764 

6571 

6373# 




xn 

00??0? 

6429Xf 





XI? 

00?4?0 

6472# 





XI 3 

00?51? 

6508A 





X?0 

003000 

661 5A 





X?T 

005266 

6698 

6700# 




X?? 

005554 

6770 

6804 

6811# 



X??1 

005760 

6889A 





X??? 

004556 

6996 

7009 

7020# 



X??5 

0045?? 

7081/^ 





X??5T 1 

00516? 

71 57 

7159# 




X??5 

005524 

7275^ 





X??51 

006054 

7376 

7381# 




X??5? 

00626? 

74654^ 





X??55 

006404 

7522 » 





X??SA 

006566 

7550 

7532 

7546# 



X?3 

007060 

7657# 





X?51 

007256 

7725M 





X?5? 

007340 

7756# 





X50 

010016 

7886 

7891# 




SAPTHD 

000456 

6150# 





SaASE 

000454 

6128# 

6210 




SCPUOP 

000426 

6128# 

6199 




SDEVCT 

000410 

6128# 





SENDAD 

001422 

6069 

6257# 




SENV 

000420 

6128# 

6197 

6243 

8351 


SENWM 

000421 

6128# 

8591 




$E T ABL 

000420 

6128# 





SE TEND 

000456 

6128# 

6130 




SFATAL 

000402 

6128# 

8260* 

8353* 



SHiers 

000456 

6130# 





SMADRT 

000432 

6128# 





SWADR2 

000436 

6128# 





$mDR3 

000442 

6128# 





SmDRA 

000446 

6128# 





SWAIL 

000400 

6128# 

6130 




smwsi 

000430 

6128# 





swws? 

000434 

6128# 





SWAMS3 

000440 

6128# 





SWAMS4 

000444 

6128# 





$«BADR 

000460 

61 30# 





SMSGAD 

000414 

6128# 





SMSGLG 

000416 

6128# 








/RXEAO RxOc' fMTR PROG WACY1 1 30(1046) ?0-SEP-?’8 10:48 PAGE 


r/RXEA. 

P11 20-SEP-78 

10:48 

1WSGTY 

000400 

6128# 

SMTYP1 

000431 

6128# 

SMTYP2 

000455 

6128# 

SMTYP3 

000441 

6128# 

SMTYP4 

000445 

6128# 

SPASS 

000406 

6128# 

SPASTM 

000464 

6130# 

SSVPC = 

000046 

6069# 

SSWREG 

000422 

6128# 

STESTN 

000404 

6128# 

STSTM 

000462 

6130# 

SUNIT 

000412 

6128# 

SUNITM 

000466 

6130# 

SUSWR 

000424 

6128# 

SVECT1 

000450 

6128# 

SVECT2 

000452 

6128# 


01 7662 

6046# 

8697# 

,sx = 

000456 

6130# 


CROSS REFERENCE TA8LE - 
8261* 8354* 

6191* 6252* 

6205 

6206 

6069# 6073# 6079# 6083# 


N 7 
70-13 

USER SYMBOLS 


SfQ 0091 


6087# 


6094# 6098# 6102# 6124# 613C# 6185# 


i 


8r.7S# 


CZRXEAO RXO,? fMTR PROG MACYll 30(1046) 20-SEP-78 10:48 PAGE 

CZRXEA.P11 20-SEP-78 10:48 CROSS REFERENCE TABLE - 


COWMEN 

1526/ 

604 2 A 






lENDCOM 

1S3PA 

6042A 






ERNUM 

6028a 

6452 

6677 

6690 

7238 

7254 

7271 

I ERR 

6009A 

6452 

6677 

6690 

7238 

7254 

7271 

i: E RR(3R 

604 2 A 







1 E SCAPE 

1654 A 

604 2 A 






GETPRI 

1278A 

6042A 






1 GETSWR 

1725a 

6042A 






MUL T 

4393A 

604 2A 






1 NEWTST 

1585A 

6042A 






; POP 

2103A 

6041 A 

6042A 





1 RJSH 

2095A 

6041 A 

6042A 





REPORT 

5352A 

6042A 






1 SCOPE 

604 2 A 







SETPRI 

1246A 

6042A 






( SE TUP 

1302A 

6042A 






fSKIP 

1688A 

6042A 






SLASH 

1478A 

604 2A 






SPACE 

6042a 







STARS 

1447A 

6041 A 

6042A 

6069 

6128 

6130 


SUfRSU 

1416A 

6042A 






T^riXJT 

6035A 

6501 

6502 

6676 

6683 

6686 

6689 

! 

7798 

7876 

7880 

7881 

7887 

8102 

8111 


TYPBIN 

2039A 

6042A 


T^PDEC 

2Q09A 

6042A 


T''PNAM 

1779A 

6042A 


TvpNLJM; 

1976A 

6042A 


T^POCS 

1929A 

6042A 


TvpOCT 

1892A 

6042A 


TvpTXT 

1846A 

6042A 


SSESCA 

1667A 

6042A 


SSAEWT 

1621A 

6042A 


SSSXIP 

1701 A 

604 2 A 


.EQUAT 

T76A 

6042 


.MEADE 

50A 



.pm 

3i9A 



. -St TUP 

1180A 



.SWRHI 

92A 



.SACT1 

4961A 

6041A 

6069 

.SAPT8 

5005A 

6041A 

6128 

.SAPTH 

5261 A 

6041 A 

6130 

.SAPTY 

5436A 

6041 A 


.SASTA 

5307A 



.SCATC 

905A 



.SCMTA 

1016A 

6041 A 


.$D62D 

4591 A 



.S0B20 

4714A 



.SOIV 

4494A 



.SEOP 

2162A 



.SEOUA 

6041A 



.SERRO 

264 3A 



.SERRT 

2838A 



.SMULT 

4431A 



.SPCWE 

4143A 



.SR AND 

421 8A 



.SRDDE 

381 4 A 




B 8 

71 

MACRO NAMES 


SEQ 0092 


7540 7544 

7540 7544 


6695 7380 7458 7463 7694 7789 7790 

8116 8129 8130 8133 8316 


7797 


I 



C 8 ' 

C/RXEAO RXO? fMTR PROG WACYll 300046) ?0-SFP-78 10:48 PAGE 71-1 

r.’RXEA.PH ?0-SEP-78 10:48 CROSS REFERENCE TA81E — MACRO NAMES SfO 00^^ 


.•SRDOC 3723# 

.SREAD 3528# 

.SR2AZ 4858# 

I .SSAVE 3889# 

.SS82D 4675# 

.SSB20 4776# 

.^SCOP 2397# 

.SSI7E 4271# 

I .SSUPR 4814^ 

.STRAP 3991# 

.STYP8 3221# 

.STYPD 3144# 

I .STYPE 2925# 

! .STYPO 3048# 
f .S40CA 944# 

j . 1 1 70 498# 

. A8S. 017662 000 

I ERRORS DETECTED; 0 

i CZRXEA,CZRXEA/CRE=CZRXEA.SML.CZRXEA.P11 
RUN-TIME: 16 14 1 SECONDS 
f RUN-TIME RATIO: 38/31=1.2 
CORE USED: 35x (70 PAGES v 



